Hallo liebe Community,
folgender Fall:
In einer UserForm pflege ich eine Adresse über eine Textbox ein. Multiline = True und EnterkeyBehaviour = True.
Mit Schaltfläche "Übernehmen" schreibe ich den Wert der Textbox in eine Zelle K16. In K15 befindet sich der Geschäftsbereich.
Solange ich die Zelle K16 in anderen Tabellenblätter abrufe zeigt es die Adresse korrekt an:
Geschäftsbereich
Straße Hausnummer
PLZ Ort
Jetzt möchte ich die Adresse aber anhand eines Makros in die Kopfzeile schreiben. Dort zeigt er mir immer einen neuen Zeilenumbruch an, obwohl ich nichts neues eingefügt habe:
Geschäftsbereich
Straße Hausnummer
PLZ Ort
Hier das Makro:
Habt ihr eine Idee?
Grüße
Martin
folgender Fall:
In einer UserForm pflege ich eine Adresse über eine Textbox ein. Multiline = True und EnterkeyBehaviour = True.
Mit Schaltfläche "Übernehmen" schreibe ich den Wert der Textbox in eine Zelle K16. In K15 befindet sich der Geschäftsbereich.
Solange ich die Zelle K16 in anderen Tabellenblätter abrufe zeigt es die Adresse korrekt an:
Geschäftsbereich
Straße Hausnummer
PLZ Ort
Jetzt möchte ich die Adresse aber anhand eines Makros in die Kopfzeile schreiben. Dort zeigt er mir immer einen neuen Zeilenumbruch an, obwohl ich nichts neues eingefügt habe:
Geschäftsbereich
Straße Hausnummer
PLZ Ort
Hier das Makro:
Code:
Public Sub Kopfzeile()
Dim Adresse, GBereich, Anschrift As String
GBereich = ThisWorkbook.Sheets("Start").Range("K15")
Anschrift = ThisWorkbook.Sheets("Start").Range("K16")
Adresse = GBereich & vbLf & Anschrift
With ThisWorkbook.Sheets("Vorl.").PageSetup
.RightHeader = Adresse
End With
End Sub
Habt ihr eine Idee?
Grüße
Martin