Clever-Excel-Forum

Hallo miteinander,

hoffe wieder mal auf Hilfe :19:

Es wurde eine schöne Tabelle mit Kopfzeilen erstellt, jeweils mit Variablen. Beim erstenmal durchlaufen funktioniert alles einwandfrei.
wenn das ganze aber mit neuen Daten aktualisiert wird, wird die Tabelle geleert, jedoch nicht der Tabellenkopf.

Hier werden die Daten in der Tabelle übergeben, funktioniert einwandfrei:

Code:
Dim wsV As Worksheet    'Variabel für Worksheet Vorlage

    Dim wsS As Worksheet    'Variabel für Worksheet Suchparameter

    Dim wsD As Worksheet    'Variabel für Worksheet Druckergebnis

    Set wsV = ActiveWorkbook.Worksheets("Vorlage")

    Set wsS = ActiveWorkbook.Worksheets("Suchparameter")

    Set wsD = ActiveWorkbook.Worksheets("Druckergebnis")

     wsD.Cells().Clear

     wsD.Activate

 Application.PrintCommunication = False

 ActiveSheet.PageSetup.LeftHeader = ""

' Application.PrintCommunication = True

      wsD.Activate

 Application.PrintCommunication = False

 ActiveSheet.PageSetup.RightHeader = ""

' Application.PrintCommunication = True

'########## Tabellenblatt Druckergebnis Spaltenbreite anpassen

    Dim sp As Long

    For sp = 1 To 4

        wsD.Columns(sp).ColumnWidth = wsV.Columns(sp).ColumnWidth

    Next sp

Hier werden die Variablen der Kopfzeile übergeben:

Code:
'########### Information für Blattkopfzeile hinzufügen

 Dim project As String

 project = InputBox("Bitte Projektnummer eingeben")

 Dim vnummer As String

 vnummer = InputBox("Bitter Versuchsnummer eingeben")

 Dim atp As String

 atp = InputBox("Bitte Ziehungszeitpunkt eingeben")

 wsD.Activate

 Application.PrintCommunication = False

 ActiveSheet.PageSetup.LeftHeader = "&""-,Fett""&22Projekt: " & project & "  "

 ActiveSheet.PageSetup.RightHeader = "&""-,Fett""&14Versuchsnummer:" & vnummer & Chr(10) & "ZZP: " & atp & "  "

'  Application.PrintCommunication = True

'#########

Das Interessante ist, dass Versuchsnummer und Ziehungszeitpunkt augenscheinlich korrekt übergeben wird, jedoch die Projektnummer noch die alte (die der ersten Eingabe) ist Dodgy

. Jetzt kam der Gedanke, dass man die Kopfzeile vielleicht auch clearen sollte. Kann es daran liegen. Wenn ja wie macht dies? Habe nachgeschlagen und gegoogelt. Das einzigste was ich fand, ist wie man die Kopfzeile komplett löscht aber keine neuen Variablen übergeben werden.

Gelöst wird das ganze, dass das Blatt jedesmal geschlossen wird und die "Jungfrauversion" wieder gestartet wird. Aber das kann doch nicht DIE Lösung sein. Muss doch auch gehen, wenn man es aktualisiert und neue Werte eingibt......

Mal wieder Eure twobbi :05:

Hallo twobbi,

kann ich erst mal nicht nachvollziehen.
Nimm doch mal nur die Änderung der Kopfzeile, ändere das und schaue in die Seitenvorschau, was passiert:

Sub test()
ActiveSheet.PageSetup.RightHeader = "RightHedder"
End Sub

(01.06.2015, 11:30)schauan schrieb: [ -> ]Hallo twobbi,

kann ich erst mal nicht nachvollziehen.
Nimm doch mal nur die Änderung der Kopfzeile, ändere das und schaue in die Seitenvorschau, was passiert:

Sub test()
ActiveSheet.PageSetup.RightHeader = "RightHedder"
End Sub

Hab die datei ma angehängt. Man sieht wie Projekt schon abgeschnitten ist in der kopfzeile

Hallo Rebecca,

wahrscheinlich hängt es mit Deinem
Application.PrintCommunication = False
zusammen. Ich habe mal etwas gestöbert und unter anderem Hinweise darauf gefunden. Kommentiere diese Zeile mal aus und schaue, was dann passiert. In meinem kurzen Beispielcode hatte ich diese Zeile ja auch nicht dabei. Starte dazu Excel aber bitte neu oder führe das gegenteilige Kommando wenigstens einmal aus, damit die Kommunikation wieder eingeschaltet ist.

twobbelix

schauan

twobbelix

schauan