Probleme mit unterschiedlichen Tabellenblättern
26.03.2017 12:47:53
PQuest
ich stehe mit dem verarbeiten von Daten auf unterschiedlichen Tabellenblättern und den Ranges etc. wohl auf dem Kriegsfuss.
Ich verwende folgenden Code, um Daten auf 2 unterschiedlichen Tabellenblättern abzugleichen:
Sub Aktualisieren()
Dim wksSource As Worksheet
Dim wksTarget As Worksheet
Dim lngFRSource As Long
Dim lngLRSource As Long
Dim lngFRTarget As Long
Dim lngLRTarget As Long
Dim i As Long
Dim Zeile As Long
Dim strZimmerSource As String
Dim strZimmerTarget As String
Dim rngSource As Range
Dim strBewohner As String
Set wksSource = ThisWorkbook.Sheets("Aktuell")
Set wksTarget = ThisWorkbook.Sheets("Gesamtübersicht")
lngFRSource = 2
lngFRTarget = 2
lngLRSource = wksSource.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox lngLRSource
lngLRTarget = wksTarget.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox lngLRTarget
With wksSource
Set rngSource = .Range(.Cells(lngFRSource, 1), .Cells(lngLRSource, 1))
End With
For i = lngFRTarget To lngLRTarget
strZimmerTarget = Cells(i, 1) & Cells(i, 2) & Cells(i, 4)
If Cells(i, 5) = "EZ" Then
Set strZimmerSource = rngSource.Find(strZimmerTarget)
If Str(strZimmerSource) Is Nothing Then
Cells(i, 8) = "nicht belegt"
Else
Zeile = Str(strZimmerSource).Row
' cells(i,8)= hier kommt noch was
End If
ElseIf Cells(i, 5) = "DZ" Then
'noch nichts
End If
Next i
End Sub
Das Worksheet "Gesamt" (Variablen mit dem Suffix Target) enthält eine Schaltfläche über die mein Code gestartet wird. Dort gibt es eine Zimmernummer, die dann mit o.g. Code in der Tabelle "Aktuell" gesucht. Danach soll was passieren, was bisher nocht nicht weiter codiert ist, weil ich "hänge".
Sobald ich beim 2ten IF ankomme erhalte ich die Fehlermeldung 424 "Objekt erforderlich". Ich gehe mal davon aus, dass ich mich in den Tabellenblättern verirre, was mir leider immer mal wieder passiert.
Kann mir jemand auf die Sprünge helfen?
Danke