Re: Letzte Zelle
29.01.2003 13:19:56
Michael Kaiser
Hi, wollt nicht unhöflich sein. Danke für den Vorschlag.
Hab dadurch aber wieder ein neues Prob (VBA-Anfänger)Prog sieht bis jetzt so aus
Dim strName As String
Dim arName() As String
Dim nrName() As Integer
Dim strNrName As String
Dim iHeader As Integer
Dim sHeader As String
Dim Zielspalte As Integer
Dim Spaltentitel As String
Dim lastcell As Range
Dim r As Long
Z = 2
' Startzeile finden
sHeader = "Nachname"
iHeader = WorksheetFunction.Match(sHeader, Rows(1), 0)
'Zielspalte finden
Spaltentitel = "Call-Nr."
Zielspalte = WorksheetFunction.Match(Spaltentitel, Rows(1), 0)
' letzte Zelle ermitteln
Set lastcell = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Rows
r = lastcell.Row
Debug.Print Zielspalte, iHeader, r
Nur bekomm ich wenn ich meine Variable iheader für A1 einsetz eine Fehlermeldung.
Wie muß ich die Variable richtig übergeben?
Grüße Michael