Thema: Makro ändern


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

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

 Von: inselgerd Datum: 10.05.2007, 13:17

alle Antworten zu dieser Frage


Antwort 1 von coros vom 10.05.2007, 13:25
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 Saarbauer vom 10.05.2007, 13:28
Hallo,

da haben die beiden ja schon zusammengefunden,

hier das Orginal

http://www.supportnet.de/threads/1546499

Gruß

Helmut

Antwort 3 von inselgerd vom 11.05.2007, 20:27
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 4 von coros vom 11.05.2007, 20:39
Hallo inselgerd,

ändere

Paste:=xlPasteValues

in

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 5 von inselgerd vom 12.05.2007, 11:17
Hallo Oliver

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



Vielen Dank
Gruß
inselgerd

Antwort 6 von inselgerd vom 22.05.2007, 21:57
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

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.