Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen werden nicht vollständig mit Makro kopiert

Zeilen werden nicht vollständig mit Makro kopiert
05.05.2014 11:53:26
Huffi
Hallo,
ich habe ein Problem mit den Einfügen von Zeilen mittels Makro.
Es handelt sich um das Einfügen von Zellen, die für die Berechnung einer sog. Kostenstelle eingefügt werden sollen.
Beim unten angeführten Makro (habe ich im Internet gefunden) werden sämtliche Informationen (Spaltenüberschrifte, Formeln etc.) eingefügt. Eine Information wird aber nicht übernommen. In der Zeile wo die Gesamtbeträge ausgegeben werden, wird die Überschrift "Gesamtbetrag" nicht mitkopiert. Zum leichteren Verständnis habe ich die Exceldatei mitgeschickt. Damit ihr versteht was ich meine, genügt es, einfach auf die Schaltfläche "Neue Kostenstelle einfügen" zu klicken.
Ich hoffe, dass ich mich klar ausgedrückt habe.
https://www.herber.de/bbs/user/90491.xls
Vielen Dank für eure Hilfe im Vorraus
Gruß Huffi
Sub neueKostenstelle()
Dim s As Integer
ActiveSheet.Unprotect "Kennwort"
With sh
s = Cells.Find("Gesamtbetrag Projekt").Row
Rows(s - 5 & ":" & s).Insert Shift:=xlDown
Rows(s - 5 & ":" & s).Interior.ColorIndex = xlNone
Rows(s - 9 & ":" & s - 4).Copy Destination:=Cells(s - 3, 1)
Range(Cells(s - 2, 1), Cells(s - 1, 5)).ClearContents
Range(Cells(s, 1), Cells(s, 5)).ClearContents
Range("A" & s - 3).Select
End With
ActiveSheet.Protect "Kennwort"
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen werden nicht vollständig mit Makro kopiert
05.05.2014 12:44:01
UweD
Hallo
Wird mitkopiert, aber durch wieder gelöscht.
        Range(Cells(s, 1), Cells(s, 5)).ClearContents
Das with sh / end with brauchst du nicht.

AW: Zeilen werden nicht vollständig mit Makro kopiert
05.05.2014 14:04:20
Huffi
Hallo UweD,
vielen Dank für die Hilfe. Genauso wollte ich es haben.
Danke
Huffi
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige