VB Neuling

[xXSpikeXx]

Hallo, habe noch nie VB programmiert also hoffe ich das ihr mir schnell helfen könnt ^^

Ich brauche eine if-bedingung inder ich gucke ob eine Zelle (J2) leer ist oder nicht.

Wenn ja soll ich die Zelle C30 "JA" reingeschrieben werden und wenn nicht "NEIN".

hier mein Versuch:

    Sheets("Projektübersicht").Select
    If Range("J2").IsEmpty Then
        Sheets("Tabelle21").Select
        Range("C30") = nein
    Else
        Sheets("Projektübersicht").Select
        Range("J2").Select
        Selection.Copy
        Sheets("Tabelle21").Select
        Range("C30").Select
        ActiveSheet.Paste
    End If

dabei bekomme ich diese Fehlermeldung:


Laufzeitfehler '438'.

Objekt unterstützt diese Eigenschaft oder Methode nicht


LG xXSpikeXx

[Wernfried]

Du musst die Zellen nicht jedes mal selektieren wenn du mit der Zelle etwas machen möchtest.
Das kommt wohl von der Macro Aufzeichnung

Hier mal eine Version die (vermutlich) funktioniert:

    If Sheets("Projektübersicht").Range("J2").IsEmpty Then
        Sheets("Tabelle21").Range("C30").Value = "nein"
    Else
        Sheets("Tabelle21").Range("C30").Value = Sheets("Projektübersicht").Range("J2").Value
    End If

[xXSpikeXx]

Achso ok danke.

Ja ich hatte es aufgenommen ^^