Worksheet-übergreifendes Arbeiten mit VBA?

... komplette Frage anzeigen

2 Antworten

Dim wsA As Worksheet
Dim wsB As Worksheet

Set wsA = Sheets("Worksheet A")
Set wsB = Sheets("Worksheet B")

If wsA.Range("A1").Value = "XYZ" Then _
  wsB.Range("A1").Value = wsA.Range("A1").Value

(ungetestet)

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von xXcjXx
17.07.2017, 13:25

Danke für die schnelle Antwort ich probiers gleich mal aus.

1
Kommentar von xXcjXx
17.07.2017, 13:59

Nein es funktioniert leider nicht. Das " Set wsA = Sheets ...." wird unterstrichen und die Fehlermeldung " Laufzeitfehler 9: 

Index auserhalb des gültigen Bereichs "

erscheint.

0

Wenn es Dir nur ums referenzieren geht, hilft Dir das hier vielleicht schon weiter:

If ActiveSheet.Range("A1") = "Ja" Then
Sheets("Tabelle1").Range("A1").Value = ActiveSheet.Range("B1").Value
End If

Sonst stelle Deine Code mal hier ein oder lade ihn woanders hoch und verlinke ihn hier.

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?