Makro-Problem bei Zeilenlöschung

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error GoTo ende letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address Dim rR As Range For Each rR In Target.Rows rR.AutoFit If rR.RowHeight

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Burghard,
vielleicht meinst Du auch das Löschen von Hand?
Keine Ahnung ob der Rahmen bei der Letzten Zeile gesetzt werden soll, bei löschen der letzten Zeile?
Ansonsten den Teil löschen.
Excel kann die letzte Zeile erst nach Sichern richtig feststellen.´

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim letztezeile As Long
Dim letztezelle As String
Dim cMinHeight As Integer
On Error GoTo ende
letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address
Dim rR As Range
For Each rR In Target.Rows
rR.AutoFit
If rR.RowHeight  0 Then
ActiveSheet.Range("A" & letztezeile & ":" & letztezelle).Borders.LineStyle =  _
xlContinuous
ActiveSheet.Range("A" & letztezeile & ":" & letztezelle).Borders.Weight = xlThin
ActiveSheet.Range("A" & letztezeile & ":" & letztezelle).Borders.ColorIndex = 48
End If
Next rR
ThisWorkbook.Save
letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address
letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
ActiveSheet.Range("A" & letztezeile & ":" & letztezelle).Borders.LineStyle = xlContinuous
ActiveSheet.Range("A" & letztezeile & ":" & letztezelle).Borders.Weight = xlThin
ActiveSheet.Range("A" & letztezeile & ":" & letztezelle).Borders.ColorIndex = 48
ende:
End Sub

Hallo Hajo,
da hab ich mich wohl nicht ganz vollständig und richtig ausgedrückt. Also, angenommen, ich habe den Zellbereich der Spalten A1 bis A25, B1 bis B25, C1 bis 25, D1 bis D25 mit Inhalten gefüllt.
Dann lösche ich manuell die Zeilen 20 bis 25. Dann bleibt das Makro aber weiter aktiv (Change-Ereignis) und setzt die Rahmen und die Zeilenhöhe (18) automatisch auch bei den manuell gelöschten Zeilen. Dies will ich eigentlich nicht. Die gelöschten Zeilen sollen ohne Rahmen und die Standardhöhe (12,75 = Autofit) haben. Die Frage war, ob man in das Makro eine Bedingung einbauen kann, z.B. sinngemäß: Wenn Range("A" & letztezeile) = "" Then Exit Sub . Möglicherweise geht so etwas aber auch gar nicht.
Grüße
Burghard

Beliebteste Forumthreads (12 Monate)

Makro-Problem bei Zeilenlöschung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread