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, 14348 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
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Microsoft Office
gelöst SharePoint, Word, Excel. Auslesen mittels VBA und XML (10)

Frage von schwazza zum Thema Microsoft Office ...

VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
Excel VBA: Tranferieren von Werten aus Quelldatei in die Masterdatei mit SVERWEIS (3)

Frage von peter.schroeder zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows Server
Mailserver auf Windows Server 2012 (8)

Frage von StefanT81 zum Thema Windows Server ...

Backup
Clients als Server missbrauchen? (8)

Frage von 1410640014 zum Thema Backup ...