Guten Tag,
ich habe zwar ein ähnliches Thema gefunden, aber leider nicht genau dass was Ich brauche.
Ich habe versucht (mit Hilfe von Google), mir einen Code zu basteln, der in einem Blatt in einer bestimmten Spalte nach einem Wert Sucht der wiederum über einen Zellbezug festgelegt wird.
So sieht das bei mir aus, funktioniert allerdings schon mal nicht....
Sub FindenUndKopieren()
Dim ZellenInhalt As String
Dim rng As Range
Dim loDeinWert As Long
Dim sfirstaddress As String
ZellenInhalt = Worksheets("4-Wochen").Range("B3").Value
loDeinWert = ZellenInhalt 'gesuchter Wert
Set rng = Worksheets("AX").Range("K:K").Find(loDeinWert)
If rng Is Nothing Then
MsgBox "Wert " & loDeinWert & " nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("AX").Range("K:K").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If
End Sub
Gesucht werden soll nach dem Wert aus Zelle B3 des Blatts "4-Wochen".
Die Werte sollen im Blatt "AX" Spalte K gesucht werden.
Alle gefunden Werte sollte mir der Code im "Tabellenblatt1" untereinander kopieren. (die ganze Zeile des gefundenen Wertes)
Kann mir hierzu jemand bitte meine Fehler aufzeigen?
Ich würde den Code auch gern noch erweitern dass er mir nur die Werte innerhalb einer festgelegten Kalenderwoche ausgibt. Die KW wird im Blatt "4-Wochen" Zelle B2 festgelegt.
Bin dankbar für jede Antwort
MfG B. Mühlburger
|