Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Autom.einfügen

Autom.einfügen
08.03.2005 15:01:29
Ivi
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ß

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autom.einfügen
08.03.2005 15:10:06
Matthias
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
AW: Autom.einfügen
08.03.2005 15:55:24
Ivi
Besten dank....hat super funktioniert.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige