Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

TextBox - Buchstaben statt Zahlen

TextBox - Buchstaben statt Zahlen
26.07.2003 15:56:52
Erich M.
Hallo zusammen,
ich habe nachfolgendes Makro mit dem ich Werte in einer Tabelle suchen kann.
Wenn ich Zahlen suche ist das kein Problem.
Wenn ich aber einen Namen wie „Erich“ oder nur einen Buchsteben „a“ suche, geht es nicht.
Suchbegriff ist: myWert in TextBox1
Kann das geändert werden?

Private Sub CommandButton1_Click()
Dim zeile1 As Long, zeile2 As Long, Tab1 As Worksheet, Tab2 As Worksheet
Dim myName1 As String, Auswahl As String, myDatei As String
Dim myWert As Integer, mySpalte As Integer
Dim myName2 As String, gefunden As Boolean
Dim zelle As Range, Tb(1 To 15) As Worksheet, zeile As Long
If ComboBox1.Text = "" Then MsgBox "Bitte Datei auswählen.", 48, "Hinweis": Exit Sub
If ComboBox2.Text <> "" Then Set Tb(1) = Workbooks(ComboBox1.Text).Worksheets(ComboBox2.Text) Else MsgBox "Bitte Tabellenblatt 1 auswählen.", 48, "Hinweis": Exit Sub
If ComboBox3 = "" Then MsgBox "Beschreibung auswählen.", 48, "Hinweis": Exit Sub
If ComboBox4 = "" Then MsgBox "Bitte Suchspalte auswählen.", 48, "Hinweis": Exit Sub
myDatei = ComboBox1.Text    'Datei in der gesucht wird
myWert = TextBox1.Text      'Suchbegriff Wert
Auswahl = ComboBox3.Text    'kleiner oder gleich
myName1 = ComboBox2.Text    'Suchtabelle
mySpalte = ComboBox4.Text   'Suchspalte in Suchtabelle
Workbooks(ComboBox1.Text).Activate
Sheets(ComboBox2.Text).Select
Range("A1").Select
Set Tab1 = Sheets(ComboBox2.Text) ' = Ausgangstabelle, Suchtabelle
TabAuswahl
Sheets("Gefundene Werte").Cells.Clear
Sheets("Gefundene Werte").Cells(1, 1) = "Der Wert   " & Auswahl & "   " & myWert & _
"   wurde in der Datei    " & myDatei & ",   Tabelle  " & myName1 & _
",  in der Spalte  " & mySpalte & "  gefunden"
Set Tab2 = Sheets("Gefundene Werte") ' = Eingabetabelle
If Auswahl = "=" Then
If Tab2.Cells(1, 1) = "" Then zeile2 = 2 Else zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
For zeile1 = mySpalte To Tab1.Cells(65536, mySpalte).End(xlUp).Row
If Tab1.Cells(zeile1, mySpalte) = myWert Then Tab1.Rows(zeile1).Copy Tab2.Rows(zeile2)
zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
Next
ElseIf Auswahl = "<" Then
If Tab2.Cells(1, 1) = "" Then zeile2 = 2 Else zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
For zeile1 = mySpalte To Tab1.Cells(65536, mySpalte).End(xlUp).Row
If Tab1.Cells(zeile1, mySpalte) < myWert Then Tab1.Rows(zeile1).Copy Tab2.Rows(zeile2)
zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
Next
End If
Unload Me
Sheets("Gefundene Werte").Activate
Range("B2").Select
ActiveWindow.FreezePanes = True
Range("J1").Select
End Sub


Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox - Buchstaben statt Zahlen
26.07.2003 16:11:28
Ramses
Hallo Erich,
du vergleichst immer den ganzen Zellinhalt mit einem Teil
ersetze die Zeilen
If Tab1.Cells(zeile1, mySpalte) = myWert
mit
InStr(1, Tab1.Cells(zeile1, mySpalte), myWert) >= 1 Then
Vorher musst du allerdings prüfen ob der Inhalt nummerisch ist oder nicht
If IsNumeric(Tab1.Cells(zeile1, mySpalte)) Then
dann die Suchanweisung für die Zahlen
Else
die Suchanweisung wie oben beschrieben
End If
Gruss Rainer

AW: TextBox - Buchstaben statt Zahlen
26.07.2003 17:31:58
Erich M.
Hallo Rainer,
leider kenne ich mich nicht so gut aus, dass ich Deinen Vorschlag umsetzen kann (habs bisher noch nicht geschafft).
Habe aber umgestellt, statt
myWert As Integer
neu:
myWert As String
Jetzt kann ich auch Buchstaben/Worte abfragen, allerdings beginnt die Suche teilweise erst in der 3. oder 4. Zeile wenn ich in der 3. oder 4. Spalte suche.
Trotzdem besten Dank und ich melde mich evtl. nochmals.
mfg
Erich

Anzeige
AW: TextBox - Buchstaben statt Zahlen
26.07.2003 16:16:49
Otto
Hallo Dirk,
Meine Testumgebung: Excel 8.0 SR-2, unter Windows 2000 SP-2
hast Du Dir mal die xlBasics aus der DownloadArea von Hans' Server angesehen? Dort steht alles über "Namensgebung"!
Dann hätte Deine Variable myWert den Namen intMyWert erhalten und Du würdest Dich nicht wundern.
Gruß Otto

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige