Office: Wert in Zelle schreiben bedingt durch Wert in anderer Zelle

Hallo,

ich bin echt am verzweifeln. jedesmal wenn eine Sache klappt kommt etwas anderes hinzu und ich steh wieder vor verschlossenen Türen. :-(

Code:

Sub VORGID()
Dim Letzte As Long, Zeile As Long, ws1 As Worksheet, wb1 As Workbook

Set wb1 = Workbooks("AdrNB_ub_gesamt_" & Format(Now, "yyyy-mm-dd") & ".xls")
Set ws1 = wb1.Worksheets("Tabelle1")

wb1.Activate
ws1.Select

Letzte = Cells(Rows.Count, 1).End(xlUp).Row
For Zeile = 2 To Letzte
    Cells(Zeile, 23) = IIf(Cells(Zeile, 12) = "", 2, 1)
Next
Sheets(1).Range("W1") = "VORGID"
End Sub

Dieses Makro schaut in Spalte 12 überprüft ob eine Zelle leer ist und wenn sie leer ist schreibt sie in die selbe Zeile in Spalte 23 den Wert 2, ist sie nicht leer schreibt sie den Wert 1 in Spalte 23.

Dies wurde bis jetzt auf eine Tabelle in einem Tabellenblatt ausgeführt. Nun muss ich das ganze dahingehend erweitern, dass das Makro das für alle geöffneten Tabellen und Tabellenblätter macht. Hinzu kommt, das jetzt nicht nur zwei Werte als Bedingung stehen sondern 3.

Um es auf alle Blätter und Tabellen anzuwenden wurde mir schon bei einem anderen Problem eine möglichkeit gezeigt. Man könnte es ja dann so probieren

Code:

Sub VORGIDZurück()
Dim Letzte As Long, Zeile As Long
Dim wbMappe As Workbook
Dim wsTabelleIntegerLong
    For Each wbMappe In Workbooks
        For Each wsTabelle In wbMappe.Worksheets
            Letzte = Cells(Rows.Count, 1).End(xlUp).Row
                For Zeile = 2 To Letzte
                    Cells(Zeile, 23) = IIf(Cells(Zeile, 12) = "", 2, 1)
                Next
                Sheets(1).Range("W1") = "VORGID"
        Next wsTabelle
    Next wbMappe
End Sub

Jedoch komme ich eben mit der Select Case Anweisung nicht klar die man für dieses Probelm wohl nutzen müsste.

Denn jetzt gibt es nicht nur zwei Fälle: Spalte leer, Spalte nicht leer. Jetzt gibt es den Fall

"Verkauft" in Spalte 22 -> "3" in Spalte 23
"Sperrstatus" in Spalte 22 -> "4" in Spalte 23
"nicht Verkauft bzw. nicht erreicht" in Spalte 22 -> "5" in Spalte 23


Wäre echt cool wenn mir da nochmal jemand helfen kann!

 

ich hätte vermutet da fehlt ein With Wstabelle und ein End with und die Punkte vor Cells.