Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vergleich geht nicht

Vergleich geht nicht
07.09.2003 11:56:41
dirk
hallo zusammen und einen schönen sonntag

mit diesem vba code will ich zwei zellen vergleichen!
immer wenn ich einen buchstaben in die textbox eingebe bekomme
ich eine fehlermeldung!
vielleicht wäre es gut wenn er erst prüft wenn ENTER gedrückt wird!
hat jemand einen tip!
danke euch


Private Sub TextBox1_Change()
If Range("tabelle1!A1") = Range("tabelle1!b1") Then
worksbook.Open Filename:="C:\Eigene Dateien\dirk\menu.xls"
Else
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich geht nicht
07.09.2003 12:22:38
Reinhard
Hi Dirk,
probier mal diesen Code:


Private Sub TextBox1_LostFocus()
If Range("tabelle1!A1") = Range("tabelle1!b1") Then
Workbooks.Open Filename:="C:\Eigene Dateien\dirk\menu.xls"
Else
'ThisWorkbook.Saved = True
'ThisWorkbook.Close
MsgBox "huhu"
End If
End Sub


Gruß
Reinhard
wird schon :-)
07.09.2003 13:06:20
Reinhard
Hallo Dirk,
jetzt klappt es:


Private Sub TextBox1_LostFocus()
If Tabelle1.Cells(1, 1) = Tabelle1.Cells(1, 2) Then
Workbooks.Open Filename:="d:\Eigene Dateien\keno.xls"
Else
'ThisWorkbook.Saved = True
'ThisWorkbook.Close
MsgBox "huhu"
End If
End Sub


Gruß
Reinhard
Anzeige
ja langsam wirds aber noch nicht ganz
07.09.2003 13:25:40
dirk
hei reinhard!
jo die datei öffnet sich jetzt aber nicht mit zellenabgleich!
es öffnet bei jedem wort!
?????
keine ahnung warum
ich muss dazu sagen vergleichsfelder sind in einem anderen tabellenblatt wie die textboxt!
gruss
dirk
jetzt gehts!!!
07.09.2003 13:29:37
dirk
ES GEHT DER FEHLER LAG BEI MIR!!!
danke
endlich *SchweissAbwisch* :-)) Danke für Rückmeldu
07.09.2003 14:49:26
Reinhard
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige