Servus zusammen,
ich möchte folgendes mit einem Klick auf eine Schaltfläche erreichen:
- Bestimmte Sheets auswählen (funktioniert)
- Zeile in der die ausgewählte Zelle liegt markieren (funktioniert)
- Formeln in der markierten Zeile markieren (bis jetzt kann ich nur alle Werte in der Zeile kopieren und nicht nur die Formeln)
- Kopierte Zeile über der markierten Zeile einfügen (funktioniert)
Mein problem ist also aktuell, dass ich nicht nur die Formeln, sondern alle Zahlen aus der markierten Zeile kopiere und so eben auch in die neu eingefügte Zeile übertrage. So muss ich im Nachgang alle Zellen mit Zahlenwerten (ohne Formel) per Hand löschen.
Wäre weltklasse, wenn mir da jemand helfen könnte!
Aktuell sieht der Code so aus:
Sub SchaltflächeZeileNEU_Klicken()
Dim Adresse As String
Application.ScreenUpdating = False
Sheets(Array(6, 7, 8, 9, 10, 11)).Select 'Vorgesehene Arbeitsblätter auswählen
ActiveCell.EntireRow.Select 'Zeile in der die ausgewählte Zelle liegt markieren
Selection.Copy 'Ausgewählte Zeile kopieren
Selection.Insert Shift:=x1Down 'Kopierte Zeile über der ausgewählten Zeile einfügen
Sheets("Deckblatt").Select 'Deckblatt anzeigen
Application.ScreenUpdating = True
End Sub
|