Makro ändern
10.02.2020 14:35:46
Joe
dieser Code bewirkt, wenn ein Datum in der Spalte I ist, wird die Zeile kopiert und in TB Geräte entsorgt eingefügt.
Ich möchte das er nicht die komplette Zeile löscht, sondern nur B:I Inhalt löscht.
Wäre dies möglich?
Sub AbgerundetesRechteck1_Klicken()
Dim TB2, LR1 As Long, LR2 As Long
Set TB2 = Sheets("Geräte entsorgt")
LR2 = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row + 1
With Sheets("Geräteliste")
LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountA(.Range("i3:i" & LR1)) = 0 Then
MsgBox "Kein Datum vorhanden!"
Exit Sub
End If
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
.Range("A2:i" & LR1).AutoFilter Field:=1, Criteria1:="""""", Operator:=xlAnd
.Range("A2:i" & LR1).AutoFilter Field:=9, Criteria1:=""
.Range("A3:i" & LR1).Copy TB2.Range("A" & LR2) 'Zielzelle
.Range("A3:i" & LR1).EntireRow.Delete xlUp
.AutoFilterMode = False
TB2.UsedRange.Value = TB2.UsedRange.Value 'ggf Formeln raus
End With
'Sortieren
With TB2
LR2 = .Cells(.Rows.Count, "A").End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("i3:i" & LR2) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("A3:A" & LR2) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange .Range("A2:i" & LR2)
.Sort.Header = xlYes
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=9
Range("A3").Select
End Sub