Schönen vormittag an alle im Forum
Ich habe in einer UF eine Suche mittels Autofilter gebastelt,der mir die Werte in Sheets "Drucken" kopiert.
Nur bringe ich es nicht zustande, wenn in A2 schon ein Wert steht,mit MsgBox "Werte löschen"
Wenn nein,DANN in die erste Freie Spalte von A kopieren.
Allso alle Werte in Sheets "Drucken" A-J lassen,nicht löschen.
Auserdem möchte ich nur Werte kopieren. Also mit
Selection.PASTESpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
Private Sub CommandButton2_Click()
If Sheets("Drucken").Range("A2") "" Then
If MsgBox("Sollen alle Werte gelöscht werden?", vbOKCancel) = vbCancel Then Exit Sub
End If
Sheets("Drucken").Range("A2:J10000").ClearContents
ActiveSheet.Range("A5:D10000,G5:L10000").SpecialCells(xlCellTypeVisible).Copy _
Sheets("Drucken").[A2:J10000]
Unload Me
Sheets("Drucken").Visible = xlSheetVisible
Sheets("Drucken").Activate
Sheets("Drucken").Columns("A:L").EntireColumn.AutoFit
End Sub