Hallo,
bin noch ganz unbedarf mit VBA und stehe schon vor meinem ersten Problem.
Habe die Position der ersten freien Zeile ermittelt und in erste_freie_Zeile abgelegt.
Nun möchte ich mit einer IF Schleife von 1 bis erste_freie_Zeile alle Werte der Spalte 1 auslesen und den größten Wert ermitteln.
Danach den Wert in Zelle 1 der 1. freien Zeile schreiben.
letzte_bestell_ID = 1
For aktuelle_Zeile = 1 To erste_freie_Zeile Step 1
If Cells(aktuelle_Zeile, 1) > letzte_bestell_ID Then letzte_bestell_ID = Cells(aktuelle_Zeile, 1).Value
Next aktuelle_Zeile
Das ganze endet mit Laufzeitfehler 12 - Typen unverträglichkeit.
Ja ich weis Cells = Range und letzte_bestell_ID ist als Integer definiert.
Aber wie macht man es Richtig.
Danke
|