End(xlUp) überschreibt Zelle
06.03.2018 13:34:23
Zoe401
ich habe .End(xlUp) schon des öfteren verwendet, aber hier bei dem Code überschribt es mir immer die letzte Zelle. Das im FETT geschriebenen ist das Problem. Ich gehe von Zelle A12 nach oben (xlUp) und dann +1 um in die nächste Zeile zu schreiben. Beim ersten mal geht das auch, aber beim zweiten mal überschreibt es mir das vom ersten mal? WIESO?
Private Sub CommandButton1_Click()
'Zugversuch
If CheckBox14.Value = True Then
If ComboBox1.Value = "Prüfprotokoll" Then
Sheets("Tabelle2").Range("A1").Value = Sheets("Startseite").Range("W1").Value
End If
Sheets("Startseite").Range("B4").Copy Destination:=Sheets("Tabelle2").Range("A3")
Sheets("Startseite").Range("C4").Copy Destination:=Sheets("Tabelle2").Range("C3")
Sheets("Startseite").Range("F4").Copy Destination:=Sheets("Tabelle2").Range("E3")
Sheets("Startseite").Range("G4").Copy Destination:=Sheets("Tabelle2").Range("F3")
If CheckBox1.Value = True Then
Sheets("Startseite").Range("B5").Copy Destination:=Sheets("Tabelle2").Range("A" & Cells(12, _
1).End(xlUp).Row + 1)
End If
If CheckBox2.Value = True Then
Sheets("Startseite").Range("B6").Copy Destination:=Sheets("Tabelle2").Range("A" & Cells(12, _
1).End(xlUp).Row + 1)
End If
With Sheets("Tabelle2").Range("A3:G12").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Anzeige