Zelleninhalt mit Vorgabe vergleichen und Aktion

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

bestimmt eine einfache Lösung, aber ich komm einfach nicht darauf wie man den VBA-Code aufbauen muss und habe leider auch noch nichts nach längerer Recherche gefunden.

Undzwar geht es um MS-Excel 2007. Auf dem ersten Tabellenblatt „TABELLE 1“ wird in die Zelle B17 per Formel ein Wort wiedergegeben; entweder „ok“ oder „falsch“. Beim Start der Tabelle würde ich nun gerne erreichen, dass geschaut wird ob in der genannten Zelle „falsch“ steht und in Folge der Inhalt gelöscht wird, was bislang (manuell) über:

Range(„C2:F13“).Select
Selection.ClearContents

gesteuert wird. Wie muss jedoch in dem einzuführenden „Sub Auto_Open“ der IF / Then Code aufgebaut sein?

lg
Julian

#2

Hallo Julian,

Beim Start der
Tabelle würde ich nun gerne erreichen, dass geschaut wird ob
in der genannten Zelle „falsch“ steht und in Folge der Inhalt
gelöscht wird,

durch dein Auto_open wird klar was du willst ansonsten wäre es unklar.
Schreib bitte beim nächsten Mal, beim Start der Mappe wenn du das
meinst.

Ansonsten könnte ja sein daß da in Tabelle1!B17 ne Formel ist die
sich auf Daten aus anderen Blättern bezieht. Bist du nun in diesen
anderen Blättern, änderst dort was, so kann ja auch das Formelergebnis in Tabelle1!B17 sich ändern.

Gehst du dann wieder auf tabelle1, was ja irgendwie auch einen Start,
eine Aktivierung darstellt wäre es ja für mich denkbar daß dann
auch ein makro reagieren soll.

versuch gleich dir Select abzugewöhnen je mehr du in Vba du machst
desto zwingender wird das.

In das Modul „DieseArbeitsmappe“:

Option Explicit

Private Sub Workbook\_Open()
With Tabelle1
 If UCase(.Range("B17").Value) = "FALSCH" Then .Range("C2:F13").ClearContents
End With
End Sub

Gruß
Reinhard