Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

WorksheetChange

Worksheet_Change
17.04.2006 11:21:01
Erich
Hallo Excelaner
Ich bekomme es einfach nicht hin.
In der Recherche nichts gefunden.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zu, an As Variant
If Target.Column <> 2 Then Exit Sub
zu = MsgBox(" Text 1", vbYesNo + vbCritical)
If zu = vbNo Then
Exit Sub
Exit Sub
If zu = vbYes Then
End If
Call MyMacro
End If
End If
If Target.Column <> 3 Then Exit Sub
zu = MsgBox(" Text 2" & Chr(13) & "Text 3", vbYesNo + vbCritical)
If zu = vbNo Then
Exit Sub
If zu = vbYes Then
End If
Call MyMacro_1
End Sub

Folgendes Ergebnis sollte rauskommen.
In Spalte B wird eine Nummer eingegeben und beim velassen
der Zelle soll MyMacro aufgerufen werden.
Dann wird in Spalte C in der gleichen Zeile eine
Uhrzeit eingegeben und beim verlassen soll MyMacro_1
aufgerufen werden.
Im Augenblick passiert folgendes: Beim verlassen der Spalte B
werden beide Macros nacheinsander aufgerufen.
Hat jemand eine Idee ?
Gruss Erich

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change
17.04.2006 12:35:56
Nepumuk
Hallo Erich,
da ich aus deinem Makro nicht schlau werde, versuch es mal so und schreib, was fehlt.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Call MyMacro
    If Target.Column = 3 Then Call MyMacro_1
End Sub

Gruß
Nepumuk

Anzeige
AW: Worksheet_Change
17.04.2006 13:13:10
Erich
Hallo Nepumuk
Erstmal vielen Dank
If Target.Column <> 2 Then Exit Sub
zu = MsgBox(" Neue Zeile anlegen ?", vbYesNo + vbCritical)
If zu = vbNo Then
' Wenn nein dann die Anwendung verlassen.
Exit Sub
ElseIf zu = vbYes Then
End If
Rows(Target.Row).Copy
Rows(Target.Row + 2).Cells.Insert
'dann die Zellen ohne Formeln löschen
Rows(Target.Row + 2).ClearContents
If Target.Column <> 3 Then Exit Sub
zu = MsgBox(" Hat das Fahrzeug eine Störung" & Chr(13) & "Wurde das Fahrzeug ausgewechselt ???", vbYesNo + vbCritical)
If zu = vbNo Then
' Wenn nein dann die Anwendung verlassen.
Exit Sub
ElseIf zu = vbYes Then
End If
frmWahl.Show
End Sub
Das sind die beiden Macros.
Kann ich die im Tabellenblatt lassen oder besser in
ein Modul.
Ich hoffe Du kannst Hellsehen, angesicht meiner Erklärungsversuche.
Für Deine Mühe schon mal Danke.
Gruss Erich
Anzeige
AW: Worksheet_Change
18.04.2006 18:00:07
Nepumuk
Hallo Erich,
ich hab jetzt irgendwie den Zusammenhang verloren.
Wo sind die beiden Makros? Ich schreibe in Klassenmodule meistens nur Aufrufe von Routinen. Die Routinen sind dann in Standardmodulen.
Gruß
Nepumuk

AW: Worksheet_Change
19.04.2006 10:06:52
Erich
Hallo Nepumuk und Gerd
War ein paar Tage nicht zu Hause.
Werde beide Code probieren.
Wenn ich nicht weiterkomme melde ich mich wieder.
Nochmals Danke an euch beiden.
Gruss Erich
AW: Worksheet_Change
17.04.2006 12:56:06
Gerd L
Hallo Erich,
vermutlich meinst Du sowas.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If MsgBox(" Text 1", vbYesNo + vbCritical) = vbYes Then
MsgBox "Call MyMacro"
Target.Offset(0, 1).Select
End If
End If
If Target.Column = 3 Then
If MsgBox(" Text 2" & Chr(13) & "Text 3", vbYesNo + vbCritical) = vbYes _
Then MsgBox "Call MyMacro_1"
End If
End Sub

Gruß
Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige