Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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)

Anleitung Microsoft Microsoft Office

Mitglied: brotherkeeper

brotherkeeper (Level 1) - Jetzt verbinden

09.12.2009, aktualisiert 10.12.2009, 14656 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
Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA In Userform Maske Text nach Eingabe löschen (1)

Frage von kluthi69 zum Thema Microsoft Office ...

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

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
gelöst VBA Excel Skript - Hilfe! (1)

Frage von 133202 zum Thema VB for Applications ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...