Office: (Office 365) Userform Textfeld füllen abhängig von Wert aus Combobox

Hallo zusammen,
weiter geht es mit Problemen.
Ich Filter die Daten für die Combobox mit diesem Code

Code:

Private Sub UserForm_Initialize()
Dim tbl As ListObject
Dim rng As Range
Dim cell As Range
Dim Bis As Date
Bis = "31.12.20" 'Datum kommt später aus einer Tabelle

Set tbl = Tabelle2.ListObjects("tab_ZählerNr")
tbl.Autofilter.ShowAllData
tbl.Range.Autofilter 3, ">" & CDbl(Bis)
Set rng = Range("tab_ZählerNr[ZählerNr]").SpecialCells(xlCellTypeVisible)
For Each cell In rng
    ZählerNr.AddItem cell.Value

Next cell



End Sub

Nun sollen die Textboxen Stockwerk(spalte5) und Zählerart(spalte6) automatisch, an Hand der ZählerNr (Combobox) ausgefüllt werden.
Habe schon einiges gefunden aber da geht man immer von allen Datensätzen aus. Nicht von gefilterten
Was ich weiß das ich mit
Private Sub ZählerNr_Change()
anfangen soll.
Kann mir jemand eine Lösung vorschlagen. Wäre wie immer sehr dankbar
Gruß Martin

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo Hajo,
stimmt das es einfacher ist mit einer Datei zu arbeiten.
Hiermit Nachgeholt.
Gruß
Martin

 

ich hatte schon geschrieben das ich nicht auf fremde Rechner schaue. Ich bin dann raus, da Datei nicht komplett. Es fehlt die Userform2.
Viel Erfolg noch.

Gruß Hajo

 

Hallo Hajo,
Sorry falsche Datei eingefügt.
Nicht böse sein. Kann passieren. Hoffe jetzt passt es.
Gruß
Martin

 

Hallo Martin,
baue ein das Sub
Code:
Private Sub ZählerNr_Change()
Dim zeile As Long, rng As Range, found As Variant
Set rng = Range("tab_ZählerNr4[ZählerNr]").SpecialCells(xlCellTypeVisible)
Set found = rng.Find(what:=.ZählerNr, lookat:=xlWhole)
If found Is Nothing Then
zeile = 1
Else
zeile = found.Row
End If
Me.Stockwerk = Cells(zeile, Range("tab_ZählerNr4[Wohnung]").Column)
Me.Zählerart = Cells(zeile, Range("tab_ZählerNr4[ZählerArt]").Column)
End Sub
dann sollte es gehen.
Frohe Weihnachten wünscht der Martin

 

Danke der Code funktioniert super
schöne Weihnachten auch dir
Martin