der nachfolgenden Code überträgt Daten aus einer Tabelle in eine zweite Übersicht, läuft auch gut.
Sub Uebertragen()
Dim iRow As Integer, iRowT As Integer
With Worksheets("Übersicht")
Rows(3).Insert Shift:=xlDown
iRowT = 3
For iRow = 2 To 7
.Cells(iRowT, iRow - 1).Value = Cells(iRow, 3).Value
Next iRow
End With
End Sub
Nun aber sollen die Daten auch übertragen werden wenn Übersicht ausgeblendet ist.
Wie muß der Code aussehen.
Danke!
Gruss René