Re: Übergabe eines Textes & Suchen
10.06.2003 18:33:43
Georg_Zi
Hallo Danielawas Du mit
"und was ich nur wissen will wenn ich was gefunden habe in der
tabelle wie dieses zeile in die textboxen aufteilen kann"
meinst ist mir völlig schleierhaft.
Es gibt Zwei Userformen
FRM_Vormame mit einer Textbox
FrM_Daniela mit 3 Textboxen und einen CommandButton.
' **************************************************************
' Modul: frm_Vornahme Typ = Userform
' **************************************************************
Option Explicit
Private Sub TextBox1_AfterUpdate()
frm_Vornahme.Hide
Frm_Daniela.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
' **************************************************************
' Modul: Frm_Daniela Typ = Userform
' **************************************************************
Option Explicit
Private Sub CommandButton1_Click()
' erstellt von Hajo.Ziplies@web.de 12.04.03
Dim Found As Range
Dim LoLetzte As Long
' es wird in Spalte B gesucht
LoLetzte = 65536
If Range("B65536") = "" Then LoLetzte = Range("B65536").End(xlUp).Row
With ActiveSheet.Range("B1:B" & LoLetzte)
' von Peter Haserodt
Set Found = .Find(frm_Vornahme.TextBox1, ActiveSheet.Range("B" & LoLetzte), , xlPart, , xlNext)
' *****
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen
TextBox1 = Found
TextBox2 = Found.Offset(0, 2) ' Spalte D
TextBox3 = Found.Offset(0, 1) ' Spalte C
End With
End Sub
Private Sub UserForm_Initialize()
CommandButton1_Click
End Sub
Code eingefügt mit: Excel Code Jeanie
Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel