Hilfe bei Makroerweiterung
04.09.2006 18:06:35
mike49
ich habe eine Arbeitsmappe mit 4 Blättern (Seite1,Seite2,Seite3,Seite4). Ich habe in ein Modul ein Löschen-Makro erstellt, das ich über eine Schaltfläche ("Inhalte löschen") in Blatt "Seite3" starte:
Sub Löschen()
Sheets("Seite 3").Select
ActiveSheet.Unprotect
Range("B5:E58").ClearContents
ActiveSheet.Protect
Sheets("Seite 4").Select
ActiveSheet.Unprotect
Range("B5:E58").ClearContents
Range("B5").Select
ActiveSheet.Protect
Sheets("Seite 3").Select
Range("B5").Select
End Sub
Ich möchte dieses Makro nun erweitern und bitte um Hilfe.
Es soll im Blatt "Seite1" der Inhalt von den verbundenen Zellen R23:S23(angezeigt wird R23)in die verbundenen Zellen I23:M23 (angezeigt wird I23) übertragen werden, wobei der alte Wert überschrieben und der Inhalt der kopierten Zellen danach gelöscht werden soll.
Das selbe soll für die Zellen R24:S24(angezeigt wird R24)nach I24:M24 (angezeigt wird I24)und R25:S25(angezeigt wird R25)nach I25:M25 gelten.
(Bestimmt kann man das "Löschen Makro" einfacher darstellen).
Gruß
mike49