Bestimmte Zellen in Unterschiedlichen Datein löschen
11.11.2019 15:09:09
Niels
ich komme leider mit dem folgenden VBA Makro nicht weiter.
Ich habe mehrere Datei die immer aus den selben zwei Arbeitsblättern besteht. Je nach Datei möchte ich unterschiedliche Bereich in den Arbeitsblättern löschen durch die Tastenkombination "STRG + d" aber nur wenn die Datei geöffnet ist.
Hier zu habe ich mir folgendes Makro gemacht. Dies funktioniert leider nicht so wie ich möchte. _
Sub Lösche_in_Vorlage()
' Inhalt löschen
' Lösche Inhalt in Bestimmten Zellen
' Tastenkombination: Strg+d
If ActiveWorkbook.Name = ("Vorlage Küche") Then
Sheets("1.Erfassung Umsätze").Select
Range("F3:F5,C12:H20,C23:H31,C34:H42,C45:H53,C56:H64,C67:H75,C78:H86").Select
Selection.ClearContents
Sheets("2.Erfassung Ware").Select
Range("E10:E65").Select
Selection.ClearContents
Else: ActiveWorkbook.Name = ("Vorlage Verkauf")
Sheets("1.Erfassung Umsätze").Select
Range("C11:D20,F11:G12,C23:D32,F23:G24,C35:D44,F35:G36,C47:D56,F47:G48,C59:D68,F59:G60,C71: _
_
_
D80,F71:G72,C83:D92,F83:G84").Select
Selection.ClearContents
Sheets("2.Erfassung Ware").Select
Range("E10:E65").Select
Selection.ClearContents
End If
End Sub
Wenn ich den den unteren Teil ab Else bis vor End If entferne und das Makro ausführe passiert nichts. Bekomme nicht mal einen Fehler.
Wenn ich einen Lösungsvorschlag habt wäre das super. Am besten noch mit Lösungsweg damit ich verstehe welchen Denkfehler ich mache.
Vielen Danke
Gruß Niels