AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 23:44:12
Matthias
Hallo Mike,
also bei mir gehts nicht. Ich habe je eine Verknüpfung in G5 und G6.
In deiner "aktuellen Mappe" sind keine Verknüpfungen.
Dann musst du das halt anpassen:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m1, m2
Application.EnableEvents = False
m1 = Range("G5").NumberFormat
m2 = Range("G6").NumberFormat
Range("A2").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("G5").NumberFormat = m1
Range("G6").NumberFormat = m2
Cancel = True
Application.EnableEvents = True
End Sub
G6 gibt es aber in deiner Mappe nicht, die Zelle ist mit F6 verbunden!
Ich möchte immer an den Zeiteneingabe-Anfang. Aber warum wird das nicht gemacht, obwohl es im Makro steht?
In deiner "aktuellen Mappe" steht nichts dergleichen, aber hier:
Private Function TABELLE_AUF_NULL(strTabelle As String) As Boolean
' On Error GoTo Ende 'Fehlerbehandlung übernehmen.
With ThisWorkbook.Sheets(strTabelle) 'Alles auf dieses Tabellenblatt beziehen:
.Unprotect
.Range("E8:F38").ClearContents
.Range("G8:G38").FormulaLocal = "=WENN(F8>0;""0:00"";"""")"
.Protect
'Application.Goto .Cells(1, 1), True
Application.Goto .Range("E8")
End With
TABELLE_AUF_NULL = True 'Erfolg vermerken.
Ende:
' On Error GoTo 0 'Fehlerbehandlung zurückgeben.
End Function
Gruß Matthias