Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon inselgerd vom 10.05.2019, 13:17 Options

Makro ändern

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 schreiben

Antwort 1 von coros vom 10.05.2019, 13:25 Options

HAllo inselgerd,

mal ungetestet sollte nachfolgendes Makro funktionieren.

[b]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[/b]

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 vom 11.05.2019, 20:27 Options

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 vom 11.05.2019, 20:39 Options

Hallo inselgerd,

ändere

[b]Paste:=xlPasteValues[/b]

[b]Paste:=xlPasteAll[/b]

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 vom 12.05.2019, 11:17 Options

Hallo Oliver

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

Vielen Dank
Gruß
inselgerd

Antwort 5 von inselgerd vom 22.05.2019, 21:57 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken