Autom.einfügen

Bild

Betrifft: Autom.einfügen von: Ivi
Geschrieben am: 08.03.2005 15:01:29

Hallo Leute,
ich brauche ein Macro sobald etwas in zelle A1 eingegeben wird, in Zellen B1 und C1 eine 1 eingefügt wird.
Über die wenn Bedingung glaube ich geht es nicht, da diese Zellen
zur Zielwertsuche verwendet werden.
Jemand eine Idee??

Danke und Gruß

Bild


Betrifft: AW: Autom.einfügen von: Matthias G
Geschrieben am: 08.03.2005 15:10:06

Hallo Ivi,

Über die wenn Bedingung glaube ich geht es nicht, da diese Zellen
zur Zielwertsuche verwendet werden.

Hast du es denn schon mal ausprobiert?

Ansonsten:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
    On Error GoTo fehler
    Application.EnableEvents = False
    If [A1] = "" Then
        [B1] = ""
        [C1] = ""
    Else
        [B1] = 1
        [C1] = 1
    End If
End If
fehler:
Application.EnableEvents = True
End Sub
(Ins Tabellenblattmodul)

Gruß Matthias


Bild


Betrifft: AW: Autom.einfügen von: Ivi
Geschrieben am: 08.03.2005 15:55:24

Besten dank....hat super funktioniert.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Variable einen Wert zuweisen!"