Thema Datum  Von Nutzer Rating
Antwort
09.04.2016 15:53:52 Gast32855
NotSolved
Blau die Daten aus dieser gewählten Zeile
 09.04.2016 18:01:05 Gast70117
NotSolved
09.04.2016 18:25:57 Gast98249
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
09.04.2016 18:01:05		 Views:
1280		 Rating:
     
Antwort:
  Ja
Thema:
die Daten aus dieser gewählten Zeile

Hattu nicht genau beschrieben, ich vermute Anzahl Daten = Anzahl vorhandener Textboxen in der Userform

Private Sub ComboBox2_Change()
Dim rngUsed As Range, rngRow As Range, rngHit As Range
Dim arrHit() As Variant
Dim myCtrl As Control, x As Integer

Set rngUsed = ActiveSheet.UsedRange
'gewählte Zeile im aktiven Blatt suchen
For Each rngRow In rngUsed.Rows
   Set rngHit = rngRow.Find(ComboBox2.Value)
   If Not rngHit Is Nothing Then Exit For
Next rngRow
'Treffer in Array
arrHit = rngRow.Value
'vorhandene Textboxen
On Error Resume Next
For Each myCtrl In Me.Controls
   If TypeName(myCtrl) = "TextBox" Then
      myCtrl.Value = ""
      x = x + 1
      myCtrl.Value = arrHit(1, x)
   End If
Next myCtrl
On Error GoTo 0
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.04.2016 15:53:52 Gast32855
NotSolved
Blau die Daten aus dieser gewählten Zeile
 09.04.2016 18:01:05 Gast70117
NotSolved
09.04.2016 18:25:57 Gast98249
NotSolved