Clever-Excel-Forum

Hallo liebes Forum,

ich benutze folgendes Makro

Code:
If ActiveSheet.Name = "Auswertung" Then

      With Sheets("Ergebnisse")

        varI = Application.Match(Range("B8"), .Range("A1:A43"), 0)

        If IsNumeric(varI) Then

            If Len(.Cells(varI + 0, 19).Value) Then

              varI = varI * -(MsgBox("Arbeitsweise wurde bereits benotet, ?berschreiben ?", vbQuestion + vbYesNo, "R?ckfrage") = vbYes)

            End If

            If varI Then .Cells(varI + 0, 19).Value = Range("D11").Value

        End If

      End With

    End If

Statt der Tabellennamen ( Ergebnisse und Auswertung ) würde ich gerne den Tabellencode vom VBA nehmen.
Auswertung ist = Tabelle13
Ergebnisse = Tabelle25

Leider bekomme ich es nicht hin das Makro umzuschreiben.

Weiß jemand wie das geht ?

Danke sehr

Hallo

Dann mal ein Beispiel:

Code:
Sub Test()

    If ActiveSheet.CodeName = "Tabelle13" Then

        MsgBox "Hallo"

    End If

End Sub

Gruss Guschti

Danke. Werde ich testen

Timmihase

Guschti

Timmihase