Code verkürzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim myControl As Control Dim a As Range For Each myControl In Me.Controls If TypeOf myControl Is MSForms.TextBox Then myControl.Value = "" End If Next Set a = Range("a:a").Find("auto") If a.Offset(1, 0) <> "" Then TextBox1.Value = a.Offset(0, 1).Value ElseIf a.Offset(2, 0) <> "" Then TextBox2.Value = a.Offset(1, 1).Value TextBox1.Value = a.Offset(0, 1).Value ElseIf a.Offset(3, 0) <> "" Then TextBox3.Value = a.Offset(2, 1).Value TextBox2.Value = a.Offset(1, 1).Value TextBox1.Value = a.Offset(0, 1).Value ElseIf a.Offset(4, 0) <> "" Then TextBox4.Value = a.Offset(3, 1).Value TextBox3.Value = a.Offset(2, 1).Value TextBox2.Value = a.Offset(1, 1).Value TextBox1.Value = a.Offset(0, 1).Value End If End Sub

Hi Sebastian, ungetestet: Sub finden(was As String) Dim a As Range Set a = Range("a:a").Find(was) For n = 1 To 4 TextBox(n).Visible = False TextBox(n) = a.Offset(n - 1, 1) If n <= Cells(a.Row, 1).End(xlDown).Row - 1 - a.Row Then TextBox(n).Visible = True Next n End Sub Private Sub CommandButton1_Click() Call finden("Auto") End Sub Private Sub CommandButton1_Click() Call finden("Möbel") End Sub Private Sub CommandButton1_Click() Call finden("Gebäude") End Sub

Der Code sieht gut aus, sowas habe ich mir vorgestellt,
leider funzt er nicht, hatt e jetzt mal versucht die Klammern um n wegzulassen und war schon mal was näher dran. Leider fehlt in Zeile5(TextBoxn.Visible = False) ein Objekt, mmhh
Sub finden(was As String)
Dim a As Range
Set a = Range("a:a").Find(was)
For n = 1 To 4
TextBoxn.Visible = False
TextBoxn = a.Offset(n - 1, 1)
If n Next n
End Sub


Private Sub CommandButton1_Click()
Call finden("Auto")
End Sub


Private Sub CommandButton1_Click()
Call finden("Möbel")
End Sub


Private Sub CommandButton1_Click()
Call finden("Gebäude")
End Sub

hast du noch ne schlaue Idee, Gruß Basti

Private Sub CommandButton1_Click() Call finden("Auto") End Sub Private Sub CommandButton2_Click() Call finden("Möbel") End Sub Private Sub CommandButton3_Click() Call finden("Gebäude") End Sub Sub finden(was As String) Dim a As Range Set a = Range("a:a").Find(was) Call verbergen For n = 1 To Cells(a.Row, 1).End(xlDown).Row - a.Row Controls("TextBox" & n).Text = a.Offset(n - 1, 1) Controls("TextBox" & n).Visible = True Next n End Sub Sub verbergen() For n = 1 To 5 Controls("TextBox" & n).Visible = False Next n End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code verkürzen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread