|
Naja, geht so mit der Verständlichkeit.
Ich gehe davon aus das es sich immer um zwei Bereiche handelt, die zusammengehören.
Einmal die eine Zeile und die 9 oder 14 Zeilen
Sub kopiebereich dient als Unterroutine, ín der die Arbeit gemacht wird.
kopiebereich "A6:H6,A9:D18" das ist der Aufruf der Kopierfunktion mit dem Bereich als Parameter.
der Button wird mit Sub Bereiche() verknüpft. Hier erzeugst du noch weitere Zeilen mit den entsprechenden Bereichsadressen.
WorksheetFunction.CountA prüft ob nichtleere Zellen in angegebenen Bereich existieren.
Sub kopiebereich(sAdr$)
Dim tmp, i&
With Worksheets("Wiesental")
tmp = Split(sAdr, ",")
For i = LBound(tmp) To UBound(tmp)
If WorksheetFunction.CountA(.Range(tmp(i))) = 0 Then
Worksheets("Eingabe").Range(tmp(i)).Copy .Range(tmp(i))
End If
Next
End With
End Sub
Sub Bereiche()
kopiebereich "A6:H6,A9:D18"
End Sub
|