InputBox geht nicht mehr weg!! :(

Private Sub Worksheet_Change(ByVal Target As Range) If Tabelle4.Range("R12") = "Ja" Then Range("Z12") = InputBox("Wo wird die Türe eingebaut" & Chr(13) & _ "1 = In ein altes Gerät" & Chr(13) & _ "2 = In ein neues Gerät") End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hajo,
danke ich hab es weg bekommen. Da ich mich in kleinen Schritten da heran Taste hab ich eine neue Bedingung eingebaut aber das will nicht so wie ich es will.
In meiner Tabelle4 "J12:J18" soll per Dropdown ein Metall ausgesucht werden, wobei "St. verz." die Grundeinstellung ist. In "R12:18" wird ebenfalls gewählt ob die Türe nach innen auf geht (Ja/Nein) und hier ist die Grundeinstellung auf "Nein".
Lasse ich die Grundeinstellung in J12 und R12 so soll nichts geschehen.
Lasse ich die Grundeinstellung in J12 und Wähle in R12 "Ja" soll die Inputbox erscheinen ohne Msg.
Wähle ich in J12 "V2A" oder "V4A" und ich lasse die Grundeinstellung in R12 soll auch nichts geschehen.
Wähle ich in J12 "V2A" oder "V4A" und in R12 "Ja" aus so soll erst die Inputbox erscheinen und dann die Msg. Weiter mit Zeile 13 wie oben wenn in A13 eine Zahl steht.
Ich hänge da wieder fest, versuche immer neues und schau was passiert. Hab die Datei schon gut 100 mal gespeichert und neu aufgemacht zum Testen.
Gruß Thomas

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 18 And Target = "Ja" Then Range("Z12") = InputBox("Wo wird die Türe eingebaut" & Chr(13) & _ "1 = In ein altes Gerät" & Chr(13) & _ "2 = In ein neues Gerät") End If If Range("A12") = 600 Then 'ist eine Zahl in Zelle Dann (irgend eine Zahl) ElseIf Range("R12") = "Ja" Then Range("Z12") = InputBox("Wo wird die Türe eingebaut" & Chr(13) & _ "1 = In ein altes Gerät" & Chr(13) & _ "2 = In ein neues Gerät") ' ElseIf Range("R12") = "Ja" Then ' If Range("J12") = "V2A" Or Range("J12") = "V4A" Then 'MsgBox "Text", , "Meldung" End If 'End If Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 18 And Target = "Ja" Then Range("Z12") = InputBox("Wo wird die Türe eingebaut" & Chr(13) & _ "1 = In ein altes Gerät" & Chr(13) & _ "2 = In ein neues Gerät") End If If Range("R12") = "Nein" Then ElseIf Range("J12") = "V2A" Or Range("J12") = "V4A" Then MsgBox "Text", , "Meldung" End If Application.EnableEvents = True End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("R12:R18")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub ' wenn nur 1 Zelle geändert If Target "Ja" Then Exit Sub ' nur bei Ja in Spalte R Application.EnableEvents = False Cells(Target.Row, 26) = InputBox("Wo wird die Türe eingebaut" & Chr(10) & _ "1 = In ein altes Gerät" & Chr(10) & "2 = In ein neues Gerät") Application.EnableEvents = True If Cells(Target.Row, 10) = "V2A" Or Cells(Target.Row, 10) = "V4A" Then MsgBox "Text", , "Meldung" End If End Sub

Beliebteste Forumthreads (12 Monate)

InputBox geht nicht mehr weg!! :(

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

InputBox geht nicht mehr weg!! :(

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread