Tabellenkalkulation

Makro ändern

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo Excel-Fans Ich habe aus dem Forum vor einiger Zeit ein Makro geschrieben bekommen. (Helmut)? Durch Absturz des Computers weiß ich nicht mehr, wer mir das Makro geschrieben hat. Es geht darin um eine Datei mit mehreren Arbeitsblättern. Wenn ich nun Daten verschieben will, sollm das auf allen Arbeitsblättern passieren. Das funktioniert. Nun zu meinem Problem: Es sollen auf den Arbeitsblättern nur die Inhalte der Zellen verschoben werden, nicht aber die Formatierung (Linien, Hintergrundfarbe, Schriftfarbe). Kann mir jemand helfen? Das Makro ist so geschrieben: Sub Person_umsetzten() letztesBlatt = ActiveWorkbook.Sheets.Count Platz_alt = InputBox(" bitte jetztige Platznummer eingeben") Platz_neu = InputBox(" bitte neue Platznummer eingeben") For i = 1 To letztesBlatt Sheets(i).Select Range("c" & Platz_alt & ":IV" & Platz_alt).Select Selection.Cut Range("c" & Platz_neu).Select ActiveSheet.Paste Next i End Sub Gruß inselgerd

Antwort 1 von coros

HAllo inselgerd,

mal ungetestet sollte nachfolgendes Makro funktionieren.

Sub Person_umsetzten()
letztesBlatt = ActiveWorkbook.Sheets.Count
Platz_alt = InputBox(" bitte jetztige Platznummer eingeben")
Platz_neu = InputBox(" bitte neue Platznummer eingeben")
For i = 1 To letztesBlatt
Sheets(i).Select
Range("c" & Platz_alt & ":IV" & Platz_alt).Copy
Range("c" & Platz_neu).PasteSpecial Paste:=xlPasteValues
Range("c" & Platz_alt & ":IV" & Platz_alt).ClearContents
Next i
End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von inselgerd

Hallo Oliver

Vielen Dank für deine schnelle Antwort.
Ich habe das Makro getestet. Bis auf eine Kleinigkeit funktioniert das wunderbar.
Auf dem Arbeitsblatt 1 gebe ich Namen ein.
Auf den anderen Arbeitsblättern sollen die Namen über das kopieren mit "=" auch erscheinen.
Diese Formel geht dann verloren.
Kann man das ändern?

MfG
inselgerd

Antwort 3 von coros

Hallo inselgerd,

ändere

Paste:=xlPasteValues

Paste:=xlPasteAll

dann werden Dir alle Formeln und Formate mit übertragen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von inselgerd

Hallo Oliver

Das war ja eine promte Lösung.
Die Tabelle klappt jetzt super.

Vielen Dank
Gruß
inselgerd

Antwort 5 von inselgerd

Hallo Oliver

Leider habe ich mich zu früh gefreut.
Wenn ich das Makro ändere, verschiebt sich alles auf den Arbeitsblättern.
Ich brauche aber das Makro so, dass sich die Inhalte und Daten auf den Arbeitsblättern verschieben, die Formel oder Verknüpfung aber selbst liegen bleiben soll. Wenn ich dann auf dem Arbeitsblatt 1 neue Namen eintrage, sollen sie ja auf den anderen Arbeitsblättern auch erscheinen.
Vielleicht kannst du mir nochmals helfen.

Gruß
inselgerd