Hilfe bei Suche
18.12.2005 22:40:40
Peter
ich habe in der „Tabelle2“ in Zelle „C2“ ein Datum stehen.
Ich möchte in allen Tabellen ab der „Tabellen3“ in der Spalte „A“
nach diesen Datum suchen, und den Inhalt rechts neben der gefundenen Zelle (offset 0,1)
in die rechte Nebenzelle der aktiven Zelle kopieren.
Das Makro soll durch ein Ereignis „Rechtsklick“ ausgelöst werden.
Irgendwas mache ich bei der Suche falsch.
Wer kann helfen?
Danke Peter
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Call DatumSuchen
End Sub
Sub DatumSuchen()
Dim TbQuelle As Worksheet
Dim gesDatum
Set TbQuelle = Worksheets("Tabelle2")
Set gesDatum = Worksheets(intCounter).Columns(1).Find(DateValue(TbQuelle.Range("C2").Value))
For intCounter = 3 To Worksheets.Count
If Not IsEmpty(gesDatum.Offset(0, 1)) Then
If MsgBox("Möchten Sie den Wert übernehmen?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
With ActiveCell
.Offset(0, 1) = gesDatum.Offset(0, 1)
End With
Next intCounter
End Sub