Makro Programmierung Excel - VB

[Chemiker]

Hallo atgis,

leider einige Tipp-Fehler, so müsste es funktionieren:

Code:

Function letzteZeile() As Long
   Dim i As Integer, letzteMin As Long, letzteMax As Long
   For i = 1 To 256
      letzteMin = Cells(65536, i).End(xlUp).Row
      If letzteMax < letzteMin Then
         letzteMax = letzteMin
      End If
   Next i
   letzteZeile = letzteMax
End Function

Code:

Sub befuellen()
  Cells(letzteZeile + 1, 1) = "Test"
  Cells(letzteZeile, 2) = "Test2"
End Sub

Versuchs nochmal.

Bis bald Chemiker