ich habe folgendes Problem:
Ich habe auf einer Mappe ein Rechteck in diese Rechteck habe ich folgende
Zeile:
Update: 05.05.05 Vers.VB 97-08 / 01.04.05
Hier schreibe ich die Änderungen etc.
Nun muß ich aber diese Zeile in die UserForm plazieren Hier:
'-----------------------------------------------------------------------------
Walter.Caption = " Daten - Eingabe - Maske " & _
" " & _
" " & _
"Update: 05.05.05 Vers.VB 97-08 / 01.04.05"
'-------------------------------------------------------------------------------
Desweiteren muß ich die Zeile für die Fußzeilen für die entsprechenden
Ausdrucke plazieren und zwar 3x hier meine Ausführung:
With ActiveSheet.PageSetup
.LeftFooter = "&""Courier New,Standard""&6&F" & "/ erstellt: " & _
kbl_verkäufer & Chr(13) & " am: &D/&T"
.RightFooter = "&""Courier New,Standard""&6 " & _
"Update: 05.05.05 Vers.VB 97-08 / 01.04.05"
End With
Nun möchte ich mir die kopiererei sparen, ausgehend vom Rechteck.
Hat jemand eine Idee wie man das machen kann ?
Gruß Walter