Herbers Excel-Forum - das Archiv

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