AW: Ermitteln der nächsten leeren Zelle
07.12.2006 10:42:21
Erich
Hallo Tom,
was du nicht verraten hast:
Im Klassenmodul welcher Tabelle steht der Code?
Was für eine Funktion ist das, zu der der Code gehört? Ist das vielleicht eine benutzerdefinierte Funktion?
Kann der Code nicht in einem Normalmodul stehen und von der Funktion aufgerufen werden?
So oder ähnlich könnte es funzen (ungetestet):
Sub tst()
Dim lL As String, a As String, b As String, c As String
Dim intRow As Integer
Sheets.Add.Name = "TEMP1"
With ActiveSheet ' das ist Sheets("TEMP1")
Sheets("Tabelle1").Range(Cells(8, 3), Cells(Rows.Count, Columns.Count)).Copy .Cells(1, 1)
.Range("B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
If IsEmpty(.Cells(1, 1)) Then Exit Sub ' soll dann TEMP1 das aktive Blatt bleiben?
intRow = 0
Do Until IsEmpty(.Cells(intRow + 1, 1))
intRow = intRow + 1
Loop
.Range(.Cells(2, 4), .Cells(intRow, 4)).ClearContents
.Range(.Cells(2, 1), .Cells(intRow, 1)).Select
End With
Sheets("Tabelle1").Select
Range("C9").Select
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort