Datenbank beschreiben - Probleme
06.11.2006 18:23:17
Mister
Mittels einer UserForm gebe ich Daten in eine Tabelle ein mit folgendem Makro:
Sub BelegungZZ()
Application.ScreenUpdating = False
If UserForm1.CheckBox4.Value = True Then
ReWriteZZ
GoTo Ende:
End If
If UserForm1.TextBox1.Value = "" Then GoTo Ende:
ActiveWorkbook.Sheets("Zugangszellen").Activate
ActiveSheet.Unprotect
Range("C6").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = UserForm1.TextBox1.Value 'Name
ActiveCell.Offset(0, 1) = UserForm1.TextBox2.Value 'Vorname
ActiveCell.Offset(0, 2) = UserForm1.TextBox4.Value 'Buchnr.
ActiveCell.Offset(0, 3) = UserForm1.TextBox17.Value 'Zugang am
ActiveCell.Offset(0, 4) = UserForm1.ComboBox13.Value 'Von
ActiveCell.Offset(0, 5) = UserForm1.ComboBox1.Value 'HR
UserForm1.CheckBox4.Value = True
ActiveSheet.Protect
Sheets("Startseite").Select
Application.ScreenUpdating = True
Ende:
End Sub
Gibt es eine andere Möglichkeit die Tabelle so zu beschreiben, dass man die Eingaben später ändern kann?