Daten von 2 aktiven Workbook einlesen
27.08.2019 21:59:45
2
Hab schon wieder ein neues Problem.
Ich habe ein Excelworkbook gestartet und starte danach mein Userform. D.h. ich habe 2 Workbooks parallel offen. Nun möchte ich mit einem Button in der Userform, Daten aus dem 1. Workbook aus dem Sheet TABXXXX aus der 12. Spalte alle Daten auslesen und in der Form xxxx;yyyy;vvvv in ein Textfeld (Tex_okemons)in der Userform eingetragen.
Wäre super wenn mich jemand auf die richtige Spur führt.
HIer der Code:
Private Sub cmd_einl_Click()
Dim strB As String, rngB As Range
Dim UformW As Workbook, DatenQ As Workbook
Set UformW = ThisWorkbook
'Hier erhalte ich den Fehler im Debugger!
Set DatenQ = Workbook("TabelleZumTesten282222019.xlsx").Sheets("TABXXXX")
With DatenQ
strB = .Cells(1, 12).text
For Each rngB In .Range(.Cells(1, 12), .Cells(.Rows.Count, 2).End(xlUp)).Cells
If rngB.text "" Then
strB = strB & rngB.text & ";"
End If
Next
strB = Left(strB, Len(strB) - 1)
End With
Tex_okemons = strB