Re: Wieso funzt es nicht?
20.06.2002 08:28:47
Alex
Hi Andreas!
Mir geht es da drum: Ich will in der Tabelle die Letzte Zeile Zelle mit dem Wert finden, dann eine Zeile runter gehen und eine Formel einfügen. Danach will ich einen Bereich markieren und die Formel mit Paste einfügen. Nun Zelle habe ich(Variablen Zeile und Spalte), die nächste Zeile auch (Variable Spalte +1). Aber wie sage ich ihm, dass er mir IN DIESER SPALTE ALLE ZELLEN BIS ZUM ANFANG markiert. So dachte ich mir wäre nicht schlecht ihm zu sagen markiere mir ab ActiveCell alle Zellen bis zum Anfang (Da es keine Zelle mit der Adresse A0 gibt muss es (Spalte-1) heißen) Nun habe ich in dem Fall versucht direkt zu dieser Zelle zu springen und es funzt immer noch nicht. Vielleicht kannst du mir sage warum? Mein Makro steht unten:P.S. Variable RowAnf ist global und = 7 (In diesem Fall)
Sub LetzteZelle()
RealLastCell(ActiveSheet).Select
End Sub
Function RealLastCell(TheSheet As Worksheet) As Range
Dim ExcelLastCell As Range
Dim Ber As Range
Dim Spalte%, Zeile%, Diff%, LastRowWithData%, LastColWithData%
Application.ScreenUpdating = False
Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
LastRowWithData = ExcelLastCell.Row
Spalte = ExcelLastCell.Row
Do While Application.CountA(TheSheet.Rows(Spalte)) = 0 And Spalte <> 1
Spalte = Spalte - 1
Loop
LastRowWithData = Spalte
LastColWithData = ExcelLastCell.Column
Zeile = ExcelLastCell.Column
Do While Application.CountA(TheSheet.Columns(Zeile)) = 0 And Zeile <> 1
Zeile = Zeile - 1
Loop
LastColWithData = Zeile
Set RealLastCell = TheSheet.Cells(Spalte + 1, Zeile)
Diff = Zeile - RowAnf
ActiveCell.Offset(1, -(Spalte - 1)).Select
MsgBox Spalte & " " & Zeile & " " & RowAnf & " " & Diff
End Function