Zelle finden Datum in freie Spalte eintragen
18.01.2016 20:09:32
Steffen
ich habe das erste mal einen VBA Code geschrieben/über Google zusammengeklaut.
Ich habe auch nicht wirklich ahnung von VBA. Ich bin absoluter beginner.
Folgendes möchte ich machen.
Es gibt eine datenbank mit 8 Spalten( lft.Nr.,Name,Vorname,AnmeldeID,E-Mail,Instutition, anmeldung Tag1 und Anmeldung Tag2.
Die Datenbank hat ca. 100 Zeilen.
Ich möchte nun über eine Eingabebox eine ID einscannen, welche dann in der Datenbank gesucht wir. Dies habe ich soweit auch hinbekommen.
Nun soll von der gefundenen Zelle (die wird aktuell ausgewählt) in der ersten leeren Spalte dieser Zeile das Datum inklusivve Uhrzeit in der Form TT.MM.JJJJ.hh.mm.ss eingetragen werden. Ausserdem soll diese Zelle grün eingefärbt werden. Anschließend soll eine Infobox erscheinen und den Text Herr Vornamme(Spalte 2) Nachname(Spalte3) der gesuchten Zeile, ist angemeldet. Wenn in der Infobox OK gedrückt wird soll die Eingabebox erneut erscheinen und der Vorgang von vorn beginnen.
Der Code den ich zusammen bekommen habe.
Ich habe versucht über diverse gefundene Cods dies in den unten eingefügten Code einzutragen hat aber alles nicht geklappt.
Da ich es lernen möchte würde ich mich freuen wenn Ihr mir das ergänzte/veränderte kommentieren würdet.
Jetzt schon vielen vielen Dank.
Sub Textsuchen()
Dim str_SuchString As String
Dim Counter1 As Integer
Dim Counter2 As Integer
Dim lngZeile As Long
Dim lngletzteSpalte As Long
str_SuchString = InputBox("Bitte Anmelde-ID scannen", "Suche...")
For Counter1 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
For Counter2 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
If Cells(Counter2, Counter1).Value = str_SuchString Then
Cells(Counter2, Counter1).Select
End If
Next
Next
End Sub
Anzeige