Thema Datum  Von Nutzer Rating
Antwort
09.02.2024 07:45:47 M.H.
NotSolved
09.02.2024 08:58:42 Flatulenz
NotSolved
09.02.2024 09:39:31 Flatulenz
NotSolved
Blau Ausgabe gefundener Inhalte
 09.02.2024 09:59:44 Flatulenz
NotSolved
12.02.2024 10:07:41 Marcel
NotSolved
09.02.2024 10:44:16 Mase
NotSolved
12.02.2024 10:07:23 Marcel
NotSolved
12.02.2024 10:55:11 Mase
NotSolved
12.02.2024 11:35:05 Flatulenz
NotSolved
Blau Oha
 12.02.2024 12:01:34 Mase
NotSolved

Ansicht des Beitrags:
Von:
Flatulenz		 Datum:
09.02.2024 09:59:44		 Views:
97		 Rating:
     
Antwort:
  Ja
Thema:
Ausgabe gefundener Inhalte

so ich hab dann doch ein bissel gespielt

meine Textboxen heißen aber auch einfach nur TextBox1 bis Textbox34

gefüllt werden diese Textboxen aus den Zeilen 3 bis 36

Private Sub CommandButtonSuchen_Click()
    Dim c As Range
    Dim i As Long
    Dim strSuche As String
    strSuche = TextBoxSuchen.Value
    With Worksheets("Übersicht Kompanie")
        Set c = .Rows(2).Find(strSuche, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            For i = 1 To 34
                Controls("Textbox" & i).Value = .Cells(i + 2, c.Column).Value
            Next
        End If
    End With
End Sub

Private Sub CommandButtonÄndern_Click()
    Dim c As Range
    Dim i As Long
    Dim strSuche As String
    strSuche = TextBoxSuchen.Value
    With Worksheets("Übersicht Kompanie")
        Set c = .Rows(2).Find(strSuche, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            For i = 1 To 34
                .Cells(i + 2, c.Column) = Controls("Textbox" & i).Value
            Next
        End If
    End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.02.2024 07:45:47 M.H.
NotSolved
09.02.2024 08:58:42 Flatulenz
NotSolved
09.02.2024 09:39:31 Flatulenz
NotSolved
Blau Ausgabe gefundener Inhalte
 09.02.2024 09:59:44 Flatulenz
NotSolved
12.02.2024 10:07:41 Marcel
NotSolved
09.02.2024 10:44:16 Mase
NotSolved
12.02.2024 10:07:23 Marcel
NotSolved
12.02.2024 10:55:11 Mase
NotSolved
12.02.2024 11:35:05 Flatulenz
NotSolved
Blau Oha
 12.02.2024 12:01:34 Mase
NotSolved