Gruppe
Allgemein
Problem
Schlüssel-Aus- und Rückgaben sollen auf Grundlage einer Schlüssel- und Namensdatenbank protokolliert werden.
StandardModule: Modul1
Sub Eintragen()
Dim iRow As Integer
If WorksheetFunction.CountA(wksVerwaltung.Rows(2)) < 4 Then
Beep
MsgBox "Die Felder ""Schlüssel"", ""Empfänger"" und " & _
"""Ausgabe"" oder ""Rückgabe"" müssen ausgefüllt sein!"
Exit Sub
End If
ActiveSheet.Calculate
iRow = wksAusgaben.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksAusgaben.Rows(iRow).Value = wksVerwaltung.Rows(2).Value
End Sub