max. anzahl zeilen ermitteln
06.01.2003 15:19:57
jan
Function FindMaxRowsSearchmaschine() As Integer
Dim NameOfTargetTable As String
Dim NameOfActivTable As String
NameOfActivTable = "Vereine"
NameOfTargetTable = "Suchmaschine"
Sheets(NameOfTargetTable).Columns("A:A").Select
FindMaxRowsSearchmaschine = CurrentRegion.Rows.Count
MsgBox FindMaxRowsSearchmaschine
Sheets(NameOfActivTable).Select
End Function
es gibt aber schon eine fehlermeldung bei
Sheets(NameOfTargetTable).Columns("A:A").Select
was habe ich falsch gemacht ???
vielen dank im voraus.
gruß Jan :-)
Anzeige