Option Explicit
Private m_wksRef As Excel.Worksheet
Private m_lngZeile As Long
Public Function SetSource(Worksheet As Excel.Worksheet, Zeile As Long) As Boolean
If Worksheet Is Nothing Or Zeile <= 0 Then
Call Err.Raise(5, Source:=Me.Name)
End If
Set m_wksRef = Worksheet
m_lngZeile = Zeile
With m_wksRef
TextBox_Name.Value = .Cells(m_lngZeile, 2).Value
TextBox_Tel.Value = .Cells(m_lngZeile, 3).Value
ComboBox1.Value = .Cells(m_lngZeile, 4).Value
TextBox_Typ.Value = .Cells(m_lngZeile, 5).Value
TextBox_Schluessel.Value = .Cells(m_lngZeile, 6).Value
TextBox_HU.Value = .Cells(m_lngZeile, 7).Value
TextBox_Notizen.Value = .Cells(m_lngZeile, 9).Value
End With
SetSource = True
End Function
Private Sub Button_ok_Click()
If TextBox_Name = "" Then
MsgBox "Du musst einen Namen eintragen!"
Unload Me
Else
With m_wksRef
.Cells(m_lngZeile, 2).Value = TextBox_Name
.Cells(m_lngZeile, 3).Value = TextBox_Tel
.Cells(m_lngZeile, 4).Value = ComboBox1
.Cells(m_lngZeile, 5).Value = TextBox_Typ
.Cells(m_lngZeile, 6).Value = TextBox_Schluessel
.Cells(m_lngZeile, 7).Value = TextBox_HU
.Cells(m_lngZeile, 9).Value = TextBox_Notizen
End With
MsgBox "Kundendaten wurden erfolgreich gespeichert"
End If
End Sub
Private Sub UserForm_Activate()
If m_wksRef Is Nothing Or m_lngZeile <= 0 Then
Call MsgBox("'" & Me.Name & " wurde nicht korrekt initialisiert.", vbCritical)
Unload Me
End If
End Sub
Private Sub UserForm_Initialize()
End Sub