Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Schlüssel-Aus- und Rückgaben protokollieren

Gruppe

Bearbeiten

Problem

Schlüssel-Aus- und Rückgaben sollen auf Grundlage einer Schlüssel- und Namensdatenbank protokolliert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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