Problem Auswertung Zeile, zwei Spalten
27.05.2021 18:58:29
Hans
habe ein Problem mit der Auswertung von Zeile in zwei Spalten. Stoße an Grenzen der Umsetzung.
Worksheet als Sammler von Daten und UserForm als Eingabe- und Auslesungsorgan
Solange nur eine Spalte ausgewertet werden soll, habe ich keine Problem jetzt aber mit ZWEI !
Spalte A, Spalte B sollen ausgewertet werden. Gesucht als Beispiel ein Eintrag nach dem Schema
001 2018 > weiter Spalten mit Daten, deren Textboxen in der UserForm auftauchen
001 2019
001 2020 usw
Beispiel: 001 in Spalte A und 2020 in Spalte B sollen in die UserForm mit den Daten aus der gleichen Zeile
ausgegeben werden. Nachfolgender Code ohne Erfolg BITTE UM EURE HILFE
Private Sub cmdNutzersuche_Click()
Dim s, j As String
Dim rng As Range
Dim WS4 As Worksheet
Dim UFW As UserForm
Dim rFind As Range
Dim suchBegriff As String, firstAddress As String
Set WS4 = Worksheets("Wohndaten")
Set UFW = frmWohn
s = frmWohn.tbNutzersuche.Value
j = frmWohn.tbVerbrJahr.Value
suchBegriff = sj
WS4.Activate
'On Error GoTo Fehler
'AUSLESEN DER VORHANDENEN Mieter und Verbrauch aus Jahr? AUS DER TABELLE
With Worksheets("Wohndaten").Cells(3, 1).Select
Set rFind = .Find(What:=suchBegriff, _
After:=Cells(3, 1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not rFind Is Nothing Then
firstAddress = rFind.Address
Do
With Worksheets("Wohndaten")
If rFind.Value = .Cells(rFind.Row, 2).Value Then
MsgBox "was gefunden ? " & s & j
UFW.tbGW.Value = .Offset(0, 2).Value
UFW.tbNW.Value = .Offset(0, 3).Value
UFW.tbStimm.Value = .Offset(0, 4).Value
UFW.tbWä1.Value = .Offset(0, 5).Value
'usw
End If
End With
Set rFind = .FindNext(rFind)
Loop While rFind.Address firstAddress
End If
End With
End Sub