Office: (Office 2013) Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich

Hallo liebes Forum,

ich habe folgendes Problem:
Ich habe in einer Userform ein Suchfeld platziert. Über den CommandButton3 soll anschließend das Tabellenblatt "DB" und die Spalte B nach dem Inhalt durchsucht werden und alle Inhalte aus der gefundenen Zeile in verschiedenen TextBoxen ausgegeben werden.

Das Funktioniert auch alles einwandfrei, solange ich die Userform von dem Tabellenblatt DB ausführe. Wenn ich dies von einem anderen Tabellenblatt aus machen möchte, funktioniert dies nicht. Ich bekomme immer ab der Zeile " .TextBox2 = Cells(rngC.Row, 1)" einen Fehler angezeigt.

Könnt Ihr mir helfen, wie ich der Formel sagen kann, dass er die komplette Formel auf das Tabellenblatt "DB" anwenden soll?

Vielen Dank und Liebe Grüße

PHP:

         Private Sub CommandButton4_Click()
Dim lngSuch
Dim i As Integer
Dim LRow As Long
Dim rngC As Range
LRow = Worksheets("DB").Cells(Rows.Count, 1).End(xlUp).Row
lngSuch = "*" & TextBox12.Text & "*"
Set rngC = Worksheets("DB").Range("B1:B" & LRow).Find(lngSuch, _
Range("B" & LRow), xlValues)
With Worksheets("DB")
If Not rngC Is Nothing Then
.TextBox2 = Cells(rngC.Row, 1)
.TextBox3 = Cells(rngC.Row, 2)
.TextBox4 = Cells(rngC.Row, 3)
.TextBox5 = Cells(rngC.Row, 4)
.TextBox6 = Cells(rngC.Row, 5)
.TextBox7 = Cells(rngC.Row, 6)
.TextBox8 = Cells(rngC.Row, 7)
.TextBox9 = Cells(rngC.Row, 8)
.TextBox10 = Cells(rngC.Row, 9)
.TextBox11 = Cells(rngC.Row, 10)
.TextBox19 = Cells(rngC.Row, 13)
.TextBoxVerliehen = Cells(rngC.Row, 11)
Else
MsgBox "Leihequipment wurde nicht gefunden."
End If
End With
End Sub


:)

 

Du hast keinen Worksheet-Bezug bei

Code:

so daß immer vom aktuellen Blatt ausgegangen wird
Der Punkt fehlt

Code:

damit der Bezug zum Blatt DB hergestellt wird (With...)

 

Hallo, *Smilie

du musst es so schreiben: *wink.gif*

Code:

Der Punkt muss vor "Cells", denn du beziehst dich mit dem "With" auf das Tabellenblatt.

 

Es fehlt jeweils ein Punkt vor "Cells..."
Code:

Wenn du den nicht machst, bezieht sich das auf das angezeigte Tabellenblatt anstelle das Blatt "DB".

 

Vielen Dank für eure Hilfe.

Leider funktioniert es trotz des Punktes nicht. Es wird immer noch ein Fehler ausgegeben:








Code:

PHP:

         Private Sub CommandButton4_Click()
Dim lngSuch
Dim i As Integer
Dim LRow As Long
Dim rngC As Range
LRow = Worksheets("DB").Cells(Rows.Count, 1).End(xlUp).Row
lngSuch = "*" & TextBox12.Text & "*"
Set rngC = Worksheets("DB").Range("B1:B" & LRow).Find(lngSuch, _
Range("B" & LRow), xlValues)
With Worksheets("DB")
If Not rngC Is Nothing Then
.TextBox2 = .Cells(rngC.Row, 1)
.TextBox3 = .Cells(rngC.Row, 2)
.TextBox4 = .Cells(rngC.Row, 3)
.TextBox5 = .Cells(rngC.Row, 4)
.TextBox6 = .Cells(rngC.Row, 5)
.TextBox7 = .Cells(rngC.Row, 6)
.TextBox8 = .Cells(rngC.Row, 7)
.TextBox9 = .Cells(rngC.Row, 8)
.TextBox10 = .Cells(rngC.Row, 9)
.TextBox11 = .Cells(rngC.Row, 10)
.TextBox19 = .Cells(rngC.Row, 13)
.TextBoxVerliehen = .Cells(rngC.Row, 11)
Else
MsgBox "Leihequipment wurde nicht gefunden."
End If
End With
End Sub


 

Logisch, weil die TextBoxen eben nicht Teil des Worksheets sind. D.h. vor TextBox2 (usw) gehört der Punkt nicht.
Noch besser ist du schreibst
Code:

Case hatte darauf bereits hingewiesen, ich selbst hatte es auch übersehen.

 

Ach klasse. Hatte nicht gesehen dass bei Case der Punkt fehlte vorne.

Es funktioniert jetzt.

Vielen lieben Dank für eure Hilfe. *Smilie