Suche über mehrere Tabellen VBA
30.11.2007 14:01:42
Wolfgang
die untenstehenden Codes verwende ich, um Daten aus dem Tabellenblatt "Daten" in ein UF bzw. in darin befindliche Textfenster "einzuspeisen". Über den Code "UserForm_Activate - Textfelder_Fuellen "Daten" wird der eigentliche Code angesprochen (den ich untenstehend nur auszugsweise eingefügt habe). Was müßte ich verändern, damit die Suche nach den jeweiligen Überschriften nicht nur im Tabellenblatt "Daten" erfolgt, sondern auch auf Tabellenblatt "Daten2" und "Daten3" ausgeweitet wird? Danke schon jetzt für die Rückantworten.
Herzliche Grüße
Wolfgang
Private Sub UserForm_Activate()
txtGebdat = Format(txtGebdat.Value, "dd.mm.yy")
Textfelder_Fuellen "Daten"
End Sub
Sub Textfelder_Fuellen(ByVal x_Sheet As String)
Dim mySheet As Worksheet
Dim rng As Range
Dim i As Integer, Anzahl As Integer
'Bildschirmflackern aus
Application.ScreenUpdating = False
'Telefon
Set rng = .Rows(1).Find("Kunde_Telefon", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtTelefon.Text = rng.Offset(1, 0).Text
End If
'Anrede
Set rng = .Rows(1).Find("Kunde_Anrede", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtAnrede.Text = rng.Offset(1, 0).Text & " " & rng.Offset(1, 1).Text
End If
End Sub