Sub od. Funktion nicht gefunden
17.02.2004 08:52:39
Ralf
vieleicht kann mir einer aus Herbers Excel-Forum helfen.
Ich möchte mit VB6 die letzte Zeile mit Daten in vorgegebener Spalte
ermitteln. Bei "Worksheets" hängt sich das Programm auf.
Sub oder Funktion nicht gefunden (Fehlermeldung). Wie referenziere ich die Tabelle oder was mache
ich falsch ?
Schon mal Danke und Gruß aus Wildeshausen
Sub Form_Load()
sPath = App.Path & "\liste.xls"
Set Excel = CreateObject("Excel.Application")
Excel.Visible = False
Excel.Workbooks.Open sPath
LFlag = True
If Not LFlag Then Exit Sub
LastRowInColumn 'Aufruf der Funktion
End Sub
Public
Sub LastRowInColumn()
'Letzte Z e i l e mit Daten in vorgegebener Spalte
Dim intCol As Integer 'Spalte
Dim lngRow As Long 'Zeile
intCol = 1
With Worksheets(1)
'Wenn Zellen mit Daten im Tabellenblatt enthalten sind...
If Application.WorksheetFunction.CountA( _
.Columns(intCol).EntireColumn) > 0 Then
lngRow = .Cells(.Rows.Count, intCol).End(xlUp).Row
' o d e r auch...
'lngRow = .Cells(65536, intCol).End(xlUp).Row
MsgBox "Die letzte Zeile, die in Spalte " & intCol & _
" Daten enthält, ist die Zeile " & lngRow, _
vbOKOnly + vbInformation, _
Title:="Tabellenblatt: " & .Name
Else
MsgBox "Die Spalte " & intCol & " enthält keine Daten!", _
vbOKOnly + vbInformation, _
Title:="Tabellenblatt: " & .Name
End If
End With
End Sub
----
----