Top-Themen

Aktuelle Themen (A bis Z)

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)

Mitglied: brotherkeeper

brotherkeeper (Level 1) - Jetzt verbinden

09.12.2009, aktualisiert 10.12.2009, 14795 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
Ähnliche Inhalte
LAN, WAN, Wireless

Schwachstelle im WPA2 Protokoll veröffentlicht

Information von colinardoLAN, WAN, Wireless10 Kommentare

An alle Wireless User da draußen. So ziemlich jeder AP ist von der Schwachstelle betroffen da die Schwachstelle das ...

Netzwerkprotokolle

TeamViewer Port - Protokoll ändern

Tipp von Rolf-HankaNetzwerkprotokolle

Hallo Freunde, ich wollte hier mal einen kleinen Tipp verfassen, wie man im aktuellen Team Viewer ( Version 10 ...

Batch & Shell

Powershell - Fahrdistanz(dauer) zwischen zwei Positionen berechnen (via Google Distance Matrix API)

Tipp von colinardoBatch & Shell2 Kommentare

Und hier kommt schon die nächste, für den ein oder anderen sicher nützliche Powershell-Funktion: Berechnung der Routen-Distanz zwischen zwei ...

Microsoft Office

Dezember-Update blockiert Excel-Makro

Tipp von 10000ragaMicrosoft Office8 Kommentare

Hallo, haben Probleme mit Excel Makros gehabt. ( Laufzeitfehler 438 bei uns) ( Excel 2010) Problem Behebung Quelle ( ...

Neue Wissensbeiträge
Server-Hardware
HP iLO ist gefährdet (iLO 4))
Tipp von AlFalcone vor 8 StundenServer-Hardware

Gemäss Twitter und Heise gibt es eine Angriffsmöglichkeit auf iLO Quelle: iLO ist gefährdet

CMS
Erneut kritische Zero-Day-Lücke in Drupal
Tipp von Reini82 vor 17 StundenCMS

Laut einem Bericht auf t3n gibt es eine Schwere Sicherheitslücke in Drupal die auch schon ausgenutzt wird. Betroffen sind ...

Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 1 TagSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

Heiß diskutierte Inhalte
Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung29 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...

Windows Server
Alten DC entfernen
gelöst Frage von smartinoWindows Server27 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Batch & Shell
Mit Powershell den Inhalt einer Excel mit einer Text Datei abgleichen
gelöst Frage von Bommi1961Batch & Shell21 Kommentare

Hallo zusammen, ich muss den Inhalt einer Excel Datei (Mappe1) mit dem Daten einer Text Datei abgleichen. Die Daten ...

Router & Routing
Subnetzmaske vergrößern
gelöst Frage von groovesurferRouter & Routing18 Kommentare

Hallo, hat jemand schonmal getestet was passiert, wenn man die Subnetzmaske bei laufendem Betrieb (wenn user im Netzwerk verbunden ...