Makroprobleme...
03.12.2012 10:46:41
Steffi
mit Office 2003 bin ich gerade dabei ein kleines Makro zu basteln.
Folgendes soll passieren:
Jeweils ein bestimmter Teil der Werte werden von Tabellenblatt 1 in weitere Tabellenblätter kopiert. (nur das kopieren funktioniert)
Dabei soll Excel, wenn schon Werte im Zielblatt sind, die neuen Werte nicht darüberschreiben, sondern danebenschreiben.
Hierbei mühe ich mich noch etwas ab und habe noch keine richtige Idee.
Am Schluss sollen alle "Eingabedaten" aus Tabelle 1 in ein neues Tabellenblatt kopiert werden, dieses mit dem Datum, entnommen aus Tabelle 1 benannt werden, und anschließend die Eingabedaten gelöscht werden.
Der Code für das neue Tabellenblatt und den Namen des Blattes anpassen ist folgender:
Sheets.Add
Datum = Cells(9, 2).Value 'Wert holen
Datum = String(10, "*") 'Name kürzen
Sheets ("Tabelle*" .Name = Datum) 'neu angelegte Tabelle nehmen
' ActiveSheet.Name = Range("A4") 'frühere Versuche
' ActiveSheet.Name = "Datum" 'frühere Versuche
So, die Daten löschen habe ich bereits versucht, aber er markiert nur den zu löschenden Bereich, _ und die Inhalte bleiben stehen.
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
Range("A1:I1000").Select 'Gibt es hier auch einen Wert der für alles steht?
Application.CutCopyMode = False
Selection.ClearContents
End If
Über Antworten würde ich mich freuen. :-)
Grüße,
Steffi