Spaltensuche
09.08.2007 19:35:07
chris58
Ich beginne gerade damit, daß ich eine Userform erstelle. Nun habe ich diese Datei gefunden, die mir einigermaßen zusagt. Nun meine Frage, in dieser Datei ist diese code gespeichert, jedoch komme ich nicht dahinter, wenn ich will, das dieser Code in 2 ganz bestimmten Datein nach einer Zahl sucht. die Zahlen stehen in den Spalten C und die Tabellen heissen Dok.Ink. und Neuwagen-Finanzierung. Da ich mehrere Tabellenbltätter habe, sucht mir der Code in allen anderen auch (soll aber nur in den beiden gesucht werden... wie gesagt.....in Spalte C. Dann soll er in die Userform die Daten aus Spalte A,B,I,J und M in Textboxen reingestellt werden. Kann mir wer helfend unter die Arme greifen.
Danke im voraus
chris
Public var_Tabelle, zähler_Zelle As Integer 'Variable für die Zeile, welche anzuzeigen ist
Private Sub CommandButton1_Click()
Unload UserForm1 'Userform schließen
Tabelle1.Select
End Sub
Private Sub CommandButton2_Click()
'Daten ändern
proz_Daten_übertragen var_Tabelle, zähler_Zelle
End Sub
Private Sub CommandButton3_Click()
'Datensatz suchen
proz_suchen
End Sub
Private Sub TextBox3_Change()
If TextBox3 "" And Not IsNumeric(TextBox3) Then
MsgBox "Bitte eine 5-stellig Zahl eingeben", vbOKOnly
TextBox3 = ""
End If
End Sub
Public Sub proz_Daten_anzeigen(Tabelle, Zeile)
'Anzeigen der Werte einer Zeile in den Feldern der Userform
With Sheets(Tabelle)
TextBox1 = .Cells(Zeile, 2)
TextBox2 = .Cells(Zeile, 3)
End With
End Sub
Public Sub proz_Daten_übertragen(Tabelle, Zeile)
'Übertragen der Werte in die Tabelle
If Tabelle "" And Zeile "" Then
With Sheets(Tabelle)
.Cells(Zeile, 2) = TextBox1
.Cells(Zeile, 3) = TextBox2
End With
End If
End Sub
Public Sub proz_suchen()
If TextBox3 "" Then
'Jede Tabelle im Tabellenblatt
For m = 1 To Worksheets.Count
'Jeder Zeile innerhalb des Tabellenblattes
For i = 1 To Sheets(m).Cells(Tabelle1.Rows.Count, 1).End(xlUp).Row 'Zeile des _
letzten ausgefüllte Feldes ermitteln
If Sheets(m).Cells(i, 1) = Val(TextBox3) Then
zähler_Zelle = i
var_Tabelle = Sheets(m).Name
Sheets(m).Select
[A1].Select
GoTo weiter:
End If
Next i
Next m
weiter:
proz_Daten_anzeigen var_Tabelle, zähler_Zelle
End If
End Sub
Private Sub TextBox3_Enter()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
Private Sub UserForm_Click()
End Sub