Mehrfachbereich an Rng Variable zuweisen
Peter
Ich habe verschiedene Tabellen mit einem Eingabebereich, der sicher über mehrere, nicht zusammenhängende Zellbereiche erstreckt (in allen Tabellen gleich).
In einer dieser Tabellen - in welchen übrigens in jeder Zelle A1 "Berechnung" steht - ist dieser Eingabebereich mit "tabEingabe" benannt.
Ich möchte nun mit nachstehden Code alle Eingabebereiche löschen.
Dabei scheitere ich schon bei der Zeile Set rngEingabe = Range("tabEingabe").Address (Fehler beim Kompilieren, Typen unverträglich; "Address" wird markiert).
Im Direkbereich erhalte ich mit
?range("tabEingabe").Address(0,0)
F15:F45,L56,H59,J59,L60
Wie kann ich diese Adresse einem Range zuweisen, der dann dazu dient, dass in genau diesen Zeilen in den Tabellen, in welchen in A1 "Berechnung" steht, die Inhalte gelöscht werden?
Danke für eine Antwort.
Gruss, Pete
Public Sub inhalte_tab_loeschen()
Dim objWorksheet As Worksheet
Dim rngEingabe As Range
Set rngEingabe = Range("tabEingabe").Address
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each objWorksheet In ThisWorkbook.Worksheets
If objWorksheet.Range("A1") = "Berechnung" Then _
objWorksheet.rngEingabe.Clear
Next
Set objWorksheet = Nothing
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Anzeige