Wenn A7=B5 dann kopiere Bereich und füge ein

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Matze,
vorab ich würd mich nicht so betitelt (VBA-Götter):-D
da deine Beschreibung nicht wirklich mit deiner Datei übereinstimmt ist es etwas schwer dir zu Helfen.
Wenn ich nur auf deine Worte vertraue und die Richtig verstehe suchst du ein tool, das dir wenn a7=b5 ist
die Daten von sheets("Daten").Range("G7:z7") nach B7.... kopiert. (wenn die zeile bis z beschrieben ist)
sollte ich das richtig verstanden haben kannst du ja mal in einer kopie das hier testen

Sub t2()
Dim lz, alz, az As Range
Dim ber1, ber2 As String
With ThisWorkbook.Sheets("AP (1A)").Range("a7:a20000")
Set lz = .Find(what:="*", after:=.Range("A1"), LookIn:=xlValues, _
lookat:=xlWhole, searchdirection:=xlPrevious)
End With
Set alz = Range("a7:a" & lz.Row)
For Each az In alz
If az.Offset(-2, 1) = az Then
ber1 = Range(Cells(az.Row, 7), Cells(az.Row, 200)).Address
With ThisWorkbook.Sheets("Daten").Range(ber1)
Set lz = .Find(what:="*", after:=.Range("A1"), LookIn:=xlValues, _
lookat:=xlWhole, searchdirection:=xlPrevious)
End With
ber1 = Range("g" & lz.Row, lz.Address).Address
ber2 = Range("b" & az.Row, Cells(az.Row, (lz.Column - 5))).Address
MsgBox (ber1 & vbCrLf & ber2)
Sheets("Daten").Range(ber1).Copy Destination:=Sheets("AP (1A)").Range(ber2)
End If
Next
End Sub

Gruß
Dirk

Hallo Dirk,
das mit den Göttern ist doch immer eine Angelegenheit der Sichtweise. Aus meinem Blickwinkel bist du ein Gott :)
Grundsätzlich hast du meine Beschreibung richtig verstanden, soweit ich sie richtig beschrieben habe.
Dein Makro tut auch schon mal in Ansätzen, was ich erwartet habe ...
Zwei "Kleinigkeiten" sind da aber noch:
- zum einen habe ich nicht erwähnt, dass in Spalte A und Reihe 5 eine Formel steht, die jeweils ein Datum aus einem anderen Blatt übernimmt (='Daten'!A7 .... ='Datum'!E12 .... usw.) .... ich weiß nicht ob das beim vergleichen ein Problem darstellt, oder ob da eine Varibale als Wert deklariert werden muss, denn komischweise funktioniert dein Makro nur in den Zellen in denen ich Datenbedingt "#NV" stehe habe
- zweitens, sollte das Makro die Reihe 5 Zellenweise mit den Zellen in Spalte A auf Gleichheit untersuchen und bei "wahr" am besten den WERT aus dem Blatt Daten in den "Schnittpunkt" kopieren, da ich sonst lauter Formeln aus Blatt "Daten" noch einmal in dem Blatt "AP (1A)" stehen habe.
Ich danke Dir wie verrückt, dass du dich mit meinen Problemen beschäftigst.
Grüße
Matze

Beliebteste Forumthreads (12 Monate)

Wenn A7=B5 dann kopiere Bereich und füge ein

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn A7=B5 dann kopiere Bereich und füge ein

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread