Abhängig/Vergleich Zelle/TextBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Abhängig/Vergleich Zelle/TextBox von: Xelleron (Dennis)
Geschrieben am: 08.02.2005 06:26:37

Guten Morgen Zusammen,

komme hier an einem Pkt nicht weiter, habe Recherche auch schon durchforstet, gefundene Threads helfen aber auch nicht weiter.

Ich möchte in UF prüfen, ob Textinhalt mit der zb in A1 übereinstimmt, und wenn dem so ist, soll das Makro ausgführt werden.

Kann mir da jmd helfen? Makro wird dann über Button geprüft/ausgeführt.

Gruß
Xelleron(Dennis)

Bild


Betrifft: AW: Abhängig/Vergleich Zelle/TextBox von: Willie
Geschrieben am: 08.02.2005 06:34:44

Hallo Dennis
Hier habe ich dir ein Beispiel gemacht, welches mit dem Commandbutton1 ind der UF
prüft, ob der Zellinhalt gleich ist wie Zelle A1 in der Tabelle1 und der Textbox1
in der Userform1.
Ich hoffe das hilft
Gruß Willie
Rückmeldung wäre nett!


Private Sub CommandButton1_Click()
If Sheets("Tabelle1").Cells(1, 1) = TextBox1.Value Then
MsgBox "Der Ausduck ist gleich!", vbInformation, "Alles o.k!"
Else
MsgBox "Der Ausduck ist nicht gleich!", vbcritcal, "Bitte prüfen!"
End If
End Sub



Bild


Betrifft: AW: Abhängig/Vergleich Zelle/TextBox von: Dennis
Geschrieben am: 08.02.2005 14:27:07

Danke, der Code funktioniert,
aber folgende Variante bekomm ich nicht hin:

If Sheets("Tabelle1").Cells(4, 1) = TextBox1.Value Then
Sheets("Tabelle1").Cells.(4, 2).value = TextBox2.Value
End If

Was ist daran falsch.

Gruß Xelleron


Bild


Betrifft: AW: Abhängig/Vergleich Zelle/TextBox von: Willie
Geschrieben am: 08.02.2005 14:46:11

Du willst den Wert aus der Textbox1 in eine andere Zell schreiben?!
Dann mußt du das so machen:

If Sheets("Tabelle1").Cells(4, 1) = TextBox1.Value Then
Sheets("Tabelle1").Cells.(4, 2).value = TextBox1.Value 'Hier war der Fehler Textbox2!
End If

Gruß

Willie


Bild


Betrifft: AW: Abhängig/Vergleich Zelle/TextBox von: Willie
Geschrieben am: 08.02.2005 14:46:19

Du willst den Wert aus der Textbox1 in eine andere Zell schreiben?!
Dann mußt du das so machen:

If Sheets("Tabelle1").Cells(4, 1) = TextBox1.Value Then
Sheets("Tabelle1").Cells.(4, 2).value = TextBox1.Value 'Hier war der Fehler Textbox2!
End If

Gruß

Willie


Bild


Betrifft: AW: Abhängig/Vergleich Zelle/TextBox von: Xelleron (Dennis)
Geschrieben am: 08.02.2005 19:20:27

Hallo Willie,

nee, wenn der Wert aus TB1 = Celle (4,1) wahr ist, dann sollte der Text aus TB2 in Cell (4,2) geschrieben werden. Das war schon richtig, habe aber den Fehler selbst gefunden. Hatte einen "." zu viel nach "Cells" gemacht!

Danke trotzdem für die Hilfe

Gruß


 Bild

Beiträge aus den Excel-Beispielen zum Thema "UserForm Werte in Tabelle suchen "