AW: Mehr als 255 Zeichen von Mappe zu Mappe kopier
31.01.2006 21:46:35
Mappe
Hallo Rainer,
ich danke Dir für Deine schnelle Antwort.
Vielleicht kann man das Ganze so lösen (habe ich per Rekorder erstellt):
Sub Makro2()
Windows("Nachtrag 01 vom 10.12.05.xls").Activate 'In diese Mappe werden die Daten eingetragen (Zielmappe)
Sheets("Stellungnahme BÜ").Select 'von dieser Tabelle werden die Daten kopiert (Quelltabelle)
Columns("A:AA").Select
Selection.Copy
Windows("Nachtragsübersicht.xls").Activate 'Name der Tabelle in der Zielmappe
Columns("A:AA").Select
ActiveSheet.Buttons.Add(666.75, 65.25, 53.25, 11.25).Select
ActiveSheet.Buttons.Add(666.75, 65.25, 53.25, 11.25).Select
ActiveSheet.Buttons.Add(666.75, 65.25, 53.25, 11.25).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "."
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("K13").Select
End Sub
Läuft einwandfrei, aber dazu habe ich noch Fragen.
Wie muss der Code erweitert werden, damit der User eine Abfrage nach dem Namen seiner Quelltabelle erhält und diesen Namen dort eintragen kann?
Der Name der Zielmappe soll immer die aktuelle, geöffnete Mappe sein.
Habe ich alles richtig und verständlich rübergebracht? Ich hoffe doch!
Für weitere Unterstützung dankt vorab
Konni