Hallo zusammen,
ich habe einen kleinen Code geschrieben, der aus zwei Tabellenblättern, aus den jeweils ersten Spalten die höchste Zahl heraussucht und dann im ersten Blatt ganz unten in der Spalte den aktuell höchsten Wert der Blätter + 1 einträgt. So soll eine fortlaufende Nummerierung umgesetzt werden.
lastrow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row 'Letzte Reihe finden
writerow = lastrow + 1 'writerow
Nr1 = Application.WorksheetFunction.Max(sht.Range("A5:A500")) 'höchste Zahl finden
Nr2 = Application.WorksheetFunction.Max(ws.Range("A2:A500")) 'höchste Zahl finden
If Nr1 > Nr2 Then Nr1 = Nr Else Nr2 = Nr
Nr = Nr + 1
sht.Cells(writerow, 1) = Nr 'Nummerierung eintragen
Das Makro funktioniert komplett bis auf die Zeile, welche die beiden höchsten Zahlen vergleicht. Die Variable "Nr" beträgt nach der If-Funktion immer "0". Ich kann mir einfach nicht erklären wieso. Hat jemand von euch vielleicht einen Tipp für mich?
If Nr1 > Nr2 Then Nr1 = Nr Else Nr2 = Nr
Vielen Dank!
VG
Felix
|