|
Hi,
ich bin eher schlecht in VBA und komme daher nicht weiter.
Ich habe eine Tabelle mit mehreren Tabellenblättern.
Das letzte Tabellenblatt ist mein Ausgabereiter und heißt "Ausgabe."
Ich möchte dieses Tabellenblatt (Ausgabe) nun kopieren, einen Namen vergeben und ans Ende der Tabelle stellen.
Der Name setzt sich aus den Zellen Tabellenblatt "Eingabe" A1 (Montag) und Tabellenblatt "Eingabe" A2 (Freitag) zusammen.
Dafür habe ich ein Makro angelegt (das teilweise funktioniert):
Sub Makro_1()
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = Range("Eingabe!A1").Text & " - " & Range("Eingabe!A2").Text
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
End Sub
Es wird ein neues (leeres) Tabellenblatt mit dem Namen "Montag - Freitag" erstellt.
Wie kann ich das Makro erweitern, dass der gesamte Inhalt vom Tabellenblatt "Ausgabe" als Wert (also nur der angezeite Text) übernommen wird und dass die Formatierung (Schriftgröße, fett, verbundene Zellen) erhalten bleibt?
Im Tabellenblatt "Ausgabe" ist nur Inhalt in den Spalten A-D und nur von Zeile 1-100
Meine Versuche sind bisher gescheitert, da dieses neue Blatt ständig einen anderen Namen hat.
|