Office: Zellbereiche leeren bei Eingabe eines Wertes in eine Zelle

Hallo,

ich habe eine Exceldatei mit mehreren Tabellenblätern, die alle gleich aufgebaut sind. Nun möchte ich wiederum in einem anderen Tabellenblatt, wenn ich dort einen Wert eingebe, damit bewirken, das in den anderen Tabellenblättern jeweils die selben Zellenbereiche gelöscht werden.

Also:

Das genannte Feld (I2) ist für die Eingabe des Jahres (Beispiel: 2014). Gebe ich das Jahr ein, werden in 12 Tabellenblättern (Jan-Dez) die Bereiche C7-37 & D7-37 gelöscht.

Ist das mit Excelformeln umzusetzen, oder muss man da schon auf VBA zurückgreifen?

 

Hi,

sind die Zellinhalte in C7: D37 Formelergebnisse? Falls ja, musst du diese Formeln mittels WENN so schreiben, dass unter deiner gewünschten Bedingung nichts ausgegeben wird - andernfalls geht es nut mit VBA.

Bis später,
Karin

 

Hey,

danke erst mal für deine Antwort :)

Die Zellinhalte sind selbst eingetragene Arbeitszeiten (Anfang und Ende). Berechnet wird in diesen Zellen nichts.

 

Hi,

kopiere folgenden Code ins Codemodul des Tabellenblattes, in welchem du die Jahreszahl einträgst:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim arrTabs()
   Dim bytTab As Byte
   arrTabs = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
   If Target.Address(False, False) = "I2" Then
      For bytTab = 0 To 11
         Worksheets(arrTabs(bytTab)).Range("C7:D37").ClearContents
      Next bytTab
   End If
End Sub

Bis später,
Karin

 

Danke dir :) sehr genial :) Ich habe das ganze noch auf eine weitere Spalte, die ich für Einträge, wie z.B. Urlaub/Krank, etc. nutze. So säubere ich die Datei mit einem Klick und so ist sie direkt bereit für die Arbeitserfassung in einem neuen Jahr.

 

Hm... jetzt habe ich den Code etwas erweitert, aber es wird nur das gelöscht, was du am Anfang geschrieben hast, also nur C7 bis D37.

Ich habe die Formel wie folgt angepasst:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim arrTabs()
   Dim bytTab As Byte
   arrTabs = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
   If Target.Address(False, False) = "I2" Then
      For bytTab = 0 To 11
         Worksheets(arrTabs(bytTab)).Range("C7:D37").ClearContents
         Worksheets(arrTabs(bytTab)).Range("J7:J37").ClearContents
         Worksheets(arrTabs(bytTab)).Range("C57:J87").ClearContents
      Next bytTab
   End If
End Sub

So sollen auch weitere Zellen gelöscht werden, aber trotz des so eingegebenen Codes löscht Excel nur C7-D37. J7 bis J37 und C57 bis J87 bleiben unangetastet.

Edit: Nun passiert trotz des Codes (auch dem ersten originalen) keine Änderung mehr (das ist doch zum Mäuse melken )

Was mache ich falsch?

 

Keine Ahnung - bei mir funktioniert auch dein erweiterter Code völlig korrekt.

Bis später,
Karin

 

Hm... meinst du, du könntest mal einen Blick auf meine Datei werfen?

Vielleicht siehst du mehr, als ich?

 

Ich habe in I2 ein anderes Jahr ausgewählt - Ergebnis: alle Tabellen von Jan bis Dez wurden in den von dir gewünschten Zellbereichen geleert.

Bis später,
Karin

 

Interessant, in Excel 2007 funktionierte das sage und schreibe 1x gestern, und nun nicht mehr.

In Excel 2011 am Mac wunderbar.

Verstehen muss man das nicht, oder?

Entwarnung... warum auch immer, hat sich in meiner virtuelle Maschine am Mac in Excel die Einstellung für Macros beim Öffnen verändert...

Nun klappt wieder alles.

 

Die hochgeladene Datei ist dieselbe wie diejenige, die du in 2007 erfolglos getestet hast? Ich habe sie jetzt ebenfalls in 2007 ohne Probleme getestet.

Bis später,
Karin

 

Hatte vorhin meinen vorherigen Post bearbeitet und nicht gesehen, das du schon geantwortet hattest.

Irgendwie hat sich in meiner virtuellen Maschine unter Excel was bei der Einstellung zu Macros verstellt, habe das korrigiert, und nun geht wieder alles :)

 

Ich möchte meine Frage noch ein wenig erweitern.

Wenn ich nun Blattschutz auf Arbeitsblättern habe, dann muss ich ja, um Zellbereiche zu leeren, den Blattschutz vorübergehend aufheben.

Ich habe die Formel nun erweitert, aber dabei bekomme ich Fehler (Unzulässiger oder nicht ausreichend definierter Bereich)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim arrTabs()
   Dim bytTab As Byte
   arrTabs = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
   If Target.Address(False, False) = "C5" Then
      For bytTab = 0 To 11
        .Unprotect "test"
         Worksheets(arrTabs(bytTab)).Range("C8:D38").ClearContents
         Worksheets(arrTabs(bytTab)).Range("J8:J38").ClearContents
         Worksheets(arrTabs(bytTab)).Range("C58:J88").ClearContents
         Worksheets(arrTabs(bytTab)).Range("E46:E46").ClearContents
         Worksheets(arrTabs(bytTab)).Range("E93:E93").ClearContents
        .Protect "test"
      Next bytTab
   End If
End Sub

Wo ist der Fehler? Oder kann man das so nicht lösen?

 

Wenn du dich auf ein spezifisches Tabellenblatt mittels Punkt vor einem Befehl beziehen willst, dann musst du das in einer With-Anweisung tun:

Code:

   With Worksheets(arrTabs(bytTab))
      .Unprotect "test"
      .Range("C8:D38").ClearContents
      .Range("J8:J38").ClearContents
      .Range("C58:J88").ClearContents
      .Range("E46:E46").ClearContents
      .Range("E93:E93").ClearContents
      .Protect "test"
   End With

Bis später,
Karin

 

Hm... ich möchte mich auf die Tabellenblätter in dem VBA Code beziehen, also:
"Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez"