Makro auch von anderem Sheet starten

Sub FindenÜberschreiben() 'vergleicht Sheet DUMMY Spalte A mit Sheet ZIEL Spalte A 'und überschreibt die Fundzeile im Bereich der Spalten B:D im Sheet ZIEL Dim rng As Range Dim intRow As Integer intRow = 1 Do Until IsEmpty(Cells(intRow, 1)) 'Vergleichsrange = Spalte A von Worksheet ZIEL: Set rng = Worksheets("ZIEL").Columns(1).Find(Cells(intRow, 1), _ lookat:=xlWhole, LookIn:=xlValues) 'wenn gefunden dann Spalte B:D in Fundzeile überschreiben If Err.Number = 0 Then Range(rng.Offset(0, 1), rng.Offset(0, 3)).Value = Range(Cells(intRow, 2), _ Cells(intRow, 4)).Value intRow = intRow + 1 Else intRow = intRow + 1 End If Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FindenÜberschreiben() 'vergleicht Sheet DUMMY Spalte A mit Sheet ZIEL Spalte A 'und überschreibt die Fundzeile im Bereich der Spalten B:D im Sheet ZIEL Dim rng As Range Dim lngRow As Long Dim wksAktiv As Worksheet Dim wksZiel Set wksZiel = Worksheets("ZIEL") Set wksAktiv = ActiveSheet If wksAktiv.Name = wksZiel.Name Then MsgBox "Sie versuchen das Blatt ""Ziel"" mit sich selbst zu vergleichen!" & _ "Makro wird abgebrochen!" Exit Sub End If lngRow = 1 With wksAktiv Do Until IsEmpty(.Cells(intRow, 1)) 'Vergleichsrange = Spalte A von Worksheet ZIEL: Set rng = wksZiel.Columns(1).Find(.Cells(lngRow, 1), _ lookat:=xlWhole, LookIn:=xlValues) 'wenn gefunden dann Spalte B:D in Fundzeile überschreiben If Not rng Is Nothing Then wksZiel.Range(rng.Offset(0, 1), rng.Offset(0, 3)).Value = _ .Range(.Cells(lngRow, 2), .Cells(lngRow, 4)).Value End If lngRow = lngRow + 1 Loop End With End Sub

Hallo Klaus,
wenn du das Makro von einem beliebigen Blatt aus starten willst, dann müssen die Objekte (hier Tabellenblätter), in/mit denen gearbeitet werden soll, eindeutig benannt werden. Bei deinem bisherigen Code greift das Makro fast immer auf das aktive Blatt zu.
Mit folgender Anpassung sollte es funktionieren. Mit der With-Anweisung und dem "." vor den Range und Cell-Methoden wird der Zugriff auf das Blatt wksDummy definiert.
Gruß
Franz


Sub FindenÜberschreiben()
'vergleicht Sheet DUMMY Spalte A mit Sheet ZIEL Spalte A
'und überschreibt die Fundzeile im Bereich der Spalten B:D im Sheet ZIEL
Dim rng As Range
Dim lngRow As Long
Dim wksDummy As Worksheet
Dim wksZiel
Set wksZiel = Worksheets("ZIEL")
Set wksDummy = Worksheets("DUMMY")
lngRow = 1
With wksDummy
Do Until IsEmpty(.Cells(intRow, 1))
'Vergleichsrange = Spalte A von Worksheet ZIEL:
Set rng = wksZiel.Columns(1).Find(.Cells(lngRow, 1), _
lookat:=xlWhole, LookIn:=xlValues)
'wenn gefunden dann Spalte B:D in Fundzeile überschreiben
If Not rng Is Nothing Then
wksZiel.Range(rng.Offset(0, 1), rng.Offset(0, 3)).Value = _
.Range(.Cells(lngRow, 2), .Cells(lngRow, 4)).Value
End If
lngRow = lngRow + 1
Loop
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Makro auch von anderem Sheet starten

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread