Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VBA Code mit dem Find-Befehl
Autor: Egon10
Datum: 22.01.13 16:32
Hallo Freunde, habe da ein problem mit dem Befehl "Find". Habe ein Tabelle mit entsprechenden Eingangsdatum.In meinem VBA-Makro lasse ich das Datum so suchen: strDatum = DatePart("YYYY", Now()) - 1 d1 = DateSerial(strDatum, 1, 1) Worksheets("Jahresrechnung").Select leereSpalte = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column + 1 'findet letzte Spalte If strDatum = Cells(4, (leereSpalte - 1)) Then End 'Vergleich ob Datum schon da => Ende Cells(4, leereSpalte) = strDatum 'Trägt Jahreszahl in den Tabellenkopf ein Worksheets("Eingabeblatt").Select With Worksheets("Eingabeblatt").Range("a2:a500") 'Sucht den 1.Jahreswert des Zählers Set c = .Find(d1, LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address strAddress = Mid$(firstaddress, 4, 3) Zaehlerstandalt = Cells(strAddress, 2) Do '... Loop Until Dauer = 0 Else: MsgBox "Zaehlerstand alt nicht vorhanden" Worksheets("Jahresrechnung").Select Cells(4, leereSpalte) = "" End End If End With Leider geht das nur, wenn das Datum auch vorhanden ist! Sonst liefert es die Zeile vom 01.11.2012 Würde mich sehr über eine Lösung freuen!!! Euer egon10

VBA Code mit dem Find-Befehl

3.271

Egon10

22.01.13 16:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen