Hallo Forum,
ich schreibe mit folgendem Makro eine Log Tabelle in eine Arbeitsmappe:
<pre>Private Sub Workbook_Open()
'---- Bildschirmaktualisierung aus ----
Application.ScreenUpdating = False
'---- Tabellenblatt auswählen ----
Sheets("log").Select
'Call Password_aktiv_no
' Variable zum Ermitteln der letzten belegten Zelle
Dim loLetzte As Long
With Worksheets("log")
' letzte belegte Zelle in Spalte A
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
If loLetzte = 103 Then
' wenn bereits 99 Einträge vorhanden, dann letzte belegte Zelle = 1
loLetzte = 17
' letzen 15 Einträge nach oben kopieren kopieren
Range("A89:D103").Select
Selection.Cut
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' Bereich 18:D103 löschen
.Range(.Cells(18, 1), .Cells(103, 4)).Clear
End If
' in Spalte A Benutzernamen eintragen
.Cells(loLetzte + 1, 1).Value = Environ("UserName")
' in Spalte C aktuelles Datum eintragen
.Cells(loLetzte + 1, 3).Value = Now
' in Spalte D aktuelle Uhrzeit eintragen
.Cells(loLetzte + 1, 4).Value = Now
End With
Sheets("log").Select
Range("C18:C103").Select
Selection.NumberFormat = "m/d/yyyy"
Range("D18:D103").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Range("A18:D103").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B103"), Type:=xlFillDefault
Range("B3:B103").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True
ActiveWorkbook.Save
'---- Tabellenblatt auswählen ----
Sheets("Eingabe").Select
End Sub</pre>
In der Log Tabelle wird der Personalnummer in Spalte A ein Name mittels SVerweis Formel in der nebenstehenden Zelle der Spalte B zugeordnet. Die Matrix mit den Namen befindet sich in den Spalten G und H auf dem Tabellenblatt "Log".
Jetzt möchte ich im Ausdruck des Tabellenblatts "Eingabe" in der Kopfzeile den Namen aus dem letzten Eintrag der Log Tabelle automatisch einfügen.
Die Kopfzeile soll folgendermaßen aussehen:
Kopfzeile rechter Abschnitt:
Ersteller: hier soll der letzte Name aus dem Tabellenblatt "Log" erscheinen.
Datum: Datum: &[Datum]
Beides soll rechts ausgerichtet werden.
Geht sowas?
Kann mich vielleicht Makro technisch jemand unterstützen?
Vielen Dank im Voraus für Eure Hilfe.
Gruß
Ralf