Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

DAU-taugliches Excel Protokoll (inklusive Userform und VBA-Helfer)

Anleitung Microsoft Microsoft Office

Mitglied: brotherkeeper

brotherkeeper (Level 1) - Jetzt verbinden

09.12.2009, aktualisiert 10.12.2009, 14394 Aufrufe, 2 Danke

Mein Dank geht in aller erster Linie an alle Mitglieder dieses Forums die an den Codes mitgewirkt haben!!! Vielen Dank

Dies soll eine Anleitung sein, das von mir benötigte Protokoll zu replizieren.

Aufgabe war es ein Protokoll im Medium Excel zu Erstellen und dieses mit verschiedenen Funktionalitäten zu versehen.

Anbei die verwendeten Scripte:
  • Zum Daten eintragen inklusive Pflichtfelder verweis wo was eingetragen werden soll, das löschen einzelner Felder und als separate Routine das löschen aller Daten und das Eintragen in die letzte Zeile
ACHTUNG NOCHT NICHT 100% FERTIG (ABER NUTZBAR)
01.
Sub Daten_eintragen() 
02.
  Dim Zeile 
03.
  'CounterEintrag 
04.
  Range("S6").Value = Range("S6").Value + 1 
05.
  'Einträge notwendig 
06.
  If [i1] <> "" And [i2] <> "" And [i4] <> "" And [i5] <> "" And [i6] <> "" And [i8] <> "" And [i9] <> "" And [i10] <> "" And [i11] <> "" And [i12] <> "" Then 
07.
  'letzte benutzte Zeile ermitteln + 1 
08.
    If IsEmpty(Cells(1, "E")) Then 
09.
        Zeile = 1 
10.
    Else 
11.
        Zeile = Cells(Rows.Count, "E").End(xlUp).Row + 1 
12.
    End If 
13.
    'Daten eintragen 
14.
    Cells(Zeile, 4) = [T7] 
15.
    Cells(Zeile, 6) = [i2] 
16.
    Cells(Zeile, 16) = [i3] 
17.
    Cells(Zeile, 17) = [i1] 
18.
    Cells(Zeile, 5) = [i4] 
19.
    Cells(Zeile, 7) = [i5] 
20.
    Cells(Zeile, 8) = [i6] 
21.
    Cells(Zeile, 9) = [i7] 
22.
    Cells(Zeile, 10) = [i8] 
23.
    Cells(Zeile, 11) = [i9] 
24.
    Cells(Zeile, 14) = [i10] 
25.
    Cells(Zeile, 15) = [i11] 
26.
    Cells(Zeile, 12) = [i12] 
27.
    'Eingaben löschen 
28.
    [i5:i9] = "" 
29.
    [i12:i12] = "" 
30.
    'letzte Zeile in sichtbaren Bereich holen 
31.
    Cells(Zeile, 1).Select 
32.
    End If 
33.
End Sub
  • Einträge in Bereiche wieder löschen
01.
Sub Alles_loeschen() 
02.
'Alles_loeschen Makro 
03.
    [i3:i10] = "" 
04.
    [i12:i12] = "" 
05.
    [d2:d11] = "" 
06.
End Sub
  • Suche nach Offenen Punkte mit dem heutigen Datum
01.
 ActiveSheet.AutoFilterMode = False 
02.
Const RngFilter = "N14:O10000"     'Filterbereich, 1.Zeile (14) = Überschrift 
03.
Sub SucheHück() 
04.
    Dim Search1 As String 
05.
    Dim Search2 As String 
06.
    Search1 = Mid(Now, 1, 10) 
07.
    Search2 = "offen" 
08.
    If IsEmpty(Search1) Or Search1 = "" _ 
09.
        Or IsEmpty(Search2) Or Search2 = "" Then Exit Sub 
10.
    ActiveSheet.AutoFilterMode = False 
11.
    Range(RngFilter).Select 
12.
    Selection.AutoFilter Field:=1, Criteria1:=CDate(Search1) 
13.
    Selection.AutoFilter Field:=2, Criteria1:=Search2 
14.
    Range("A1").Select 
15.
 End Sub
  • Versand der Mail an E-Mail Adresse
01.
Public Sub procDateiPerMail() 
02.
Dim astrMailEmpfaenger(2) As String 
03.
If Application.MailSystem <> xlNoMailSystem Then 
04.
astrMailEmpfaenger(1) = "mailadresse@domain.de" 
05.
Application.ActiveWorkbook.SendMail _ 
06.
astrMailEmpfaenger(), _ 
07.
"Hier steht der Betreff", False 
08.
End If 
09.
End Sub
  • suche nach einem Begriff in der Tabelle und Filtere danach (Hier:offenen Punkte/Vorgänge; Alternative: Rot/Grün, True/False usw)
01.
 ActiveSheet.AutoFilterMode = False 
02.
Const RngSearch = "O14:O10000"  'Such- und Filterbereich 
03.
Sub SucheOffen() 
04.
    Dim Search As String, c As Range 
05.
    Search = "offen" 
06.
        ActiveSheet.AutoFilterMode = False 
07.
        Set c = ActiveSheet.Range(RngSearch).Find(Search, LookIn:=xlValues, LookAt:=xlWhole) 
08.
        If Not c Is Nothing Then 
09.
        c.Select:  Range(RngSearch).AutoFilter Field:=1, Criteria1:=Search 
10.
   End If 
11.
End Sub
  • Suchefunktion mit Variablenabfrage per Messagebox
01.
Option Explicit 
02.
 ActiveSheet.AutoFilterMode = False 
03.
Const RngSearch = "D14:R5000"  'Such- und Filterbereich (H7 = Überschrift) 
04.
Sub SucheParameter() 
05.
    Dim Search As String, c As Range 
06.
    Search = InputBox("Bitte Suchbegriff eingeben:", "Suchen") 
07.
    If Search = "" Then Exit Sub 
08.
    ActiveSheet.AutoFilterMode = False 
09.
    Set c = ActiveSheet.Range(RngSearch).Find(Search, LookIn:=xlValues, LookAt:=xlWhole) 
10.
    If c Is Nothing Then MsgBox "Suchbegriff nicht gefunden!", vbInformation, "Suchen":  Exit Sub 
11.
    c.Select 
12.
    Range(RngSearch).AutoFilter Field:=1, Criteria1:=Search 
13.
End Sub
  • Schließe alle Filter
01.
Sub SucheSchließen() 
02.
    ActiveSheet.AutoFilterMode = False 
03.
End Sub
  • Springe zu aktiven Zelle
01.
Sub GotoActiveCell() 
02.
    Application.Goto Reference:=ActiveCell 
03.
End Sub
  • Hol der Cursor in den Fokus und springe 3 Zellen hoch (damit sind die letzten 2 Datensätze noch sichtbar)
01.
Sub HolDenFokus() 
02.
     Dim NextLine As Long 
03.
    NextLine = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row - 2 
04.
    If NextLine > 1 Then Cells(NextLine, "O").Select 
05.
End Sub
  • Ganzer Bildschirm / Fullscreen
01.
Sub AnsichtGanzerBildschirm() 
02.
Application.DisplayFullScreen = True 
03.
End Sub
Wenn das jemandem hilft, dann liebend gern...

Euer Brotherkeeper
Neuester Wissensbeitrag
Router & Routing

192.168er Adresse im öffentlichen Netz

(2)

Erfahrungsbericht von visco-c zum Thema Router & Routing ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
VBA Excel Dateien zusammenfassen (3)

Frage von cberndt zum Thema VB for Applications ...

Microsoft Office
gelöst Excel 2007 Transponieren von Gruppen oder Blöcken mit VBA (7)

Frage von Chrissy123 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA - Inhalte und Dateiname von txt-Dateien automatisch in Excel importieren (2)

Frage von Booster07 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Zusammenarbeit
Als Administrator im Großraumbüro (29)

Frage von Dopamin85 zum Thema Zusammenarbeit ...

Exchange Server
Test-ActiveSyncConnectivity Error nach neuem Zertifikat (22)

Frage von Driphex zum Thema Exchange Server ...

Hyper-V
HYPER V und USB (16)

Frage von Hendrik2586 zum Thema Hyper-V ...

SAN, NAS, DAS
Backupserver für KMU (14)

Frage von Leo-le zum Thema SAN, NAS, DAS ...