|
Hallo Zusammen,
ich habe einmal eine Frage. Ich möchte gerne ein Makro shcreiben, dass zwei Tabellen miteinander vergleicht. Das Problem ist beide stehen auf unterschiedlichen Tabellenblättern. Folgendes Makro habe ich bereits geschrieben:
'Bereich in dem gesucht werden soll
Set rngSuchBereich = Application.InputBox("Wähle bitte den Bereich den du überprüfen möchtest:", "Zelle wählen", ActiveCell.Address, Type:=8)
'Werte die gefunden werden sollen
Set rngBereich = Application.InputBox("Wähle bitte den Bereich in dem du suchen möchtest:", "Zelle wählen", ActiveCell.Address, Type:=8)
'Wo das Ergebnis stehen soll
Set rngErgebnis = Application.InputBox("Wähle die erste Zeile in der das Ergebnis stehen soll:", "Zelle wählen", ActiveCell.Address, Type:=8)
spalte = rngErgebnis.Column
zeile = rngErgebnis.Row
blattname = ActiveSheet.Name
For Each c In rngSuchBereich.Cells
If rngBereich.Find(c, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
Else
Worksheets(blattname).Cells(zeile, spalte) = "vorhanden"
End If
zeile = zeile + 1
Next
End Sub
Jetzt habe ich allerdings das Problem, dass er das Ergebnis auf dem falschen Tabellenblatt ausgibt, wenn ich nicht von Beginn an das Richtige ausgewählt habe.
Ich hatte es mit blattname probiert, allerdings nimmt er da dann den Blattnamen von dem ich starte und nicht das von der Ergebnisszelle.
Hat einer eine Idee wie ich das lösen kann?
Vielen Dank für Eure Hilfe
Svea
|