Bereich übergeben
28.04.2015 12:25:09
Patrick
In meiner Tabelle1 befinden sich markierte Zellen mit farbigem Hintergrund,
dieser soll ausgewertet und in Tabelle 2 geschreiben werden.
so weit so gut, bis hierher funktioniert alles solang ich das makro aus Tabelle 1 herraus starte.
Effektiver wäre aber der Makrostart über:
Private Sub Worksheet_Activate()
Testweise habe ich nun meinen Code umgeschreiben mit:
Sheets("Tabelle1").Select
'Code
Sheets("Tabelle2").Select
auch das funktionert jedoch wechselt excel wahnsinnig schnell zwischen Tabelle1 und Tabelle2 hin und her.
gibt es eine sauberere Lösung für das Problem?
hier noch der erste Teil meines aktuellen Codes:
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":"))
zo = Range(lo).Row
zu = Range(ru).Row
sl = Range(lo).Column
sr = Range(ru).Column
For zeile = zo To zu
For spalte = sl To sr
fwert = Sheets("Tabelle1").Cells(zeile, spalte).Interior.Color
geschrieben wird später mit
Sheets("Tabelle2").Cells(y, x).Interior.Color = fwert
Danke schonmal Vorab