AW: Zellen auslesen (VBA)
04.03.2020 14:23:55
Herbert
Hallo Oberschlumpf,
es ist der selbe Code geblieben:
Private Sub CommandButton3_Click()
Dim CBoxTxt As String, findRow As Long
CBoxTxt = TextBox_Name.Text
findRow = Range(TextBox_Namen_Zelle.Value).Row
If Cells(findRow, 29) = CBoxTxt And _
Cells(findRow, "AC") = CBoxTxt Then
If MsgBox("Soll der Dateipfad von " & CBoxTxt & " wirklich geändert werden?", vbYesNo) = _
_
vbNo Then Exit Sub
Cells(findRow, 30) = (TextBox_Achsbild)
Cells(findRow, 31) = (TextBox_Achsbild_Adapter)
End If
Unload Me
End Sub
Der Fehler war, das er die Zell Daten garnicht mehr in die jeweilige TextBox gepackt hat, weil ich vorher eine ComboBox mit Change genutzt hatte und jetzt durch Active Directory wird der Name des jeweiligen Nutzers direkt rausgesucht von Excel, wo durch dann beim UserForm_Initialize dann direkt die Daten von dem jeweiligen Speicherort des Users dort eingefügt werden.
Hier der beim Initalize vergessene Code:
Dim finden As Range
TextBox_Achsbild = Sheets("Einstellungen").Cells(Indx + 3, 30)
TextBox_Achsbild_Adapter = Sheets("Einstellungen").Cells(Indx + 3, 31)
Set finden = Columns(29).Find(what:=TextBox_Name)
TextBox_Namen_Zelle = finden.Address
Und hier der vollständige Code vom Initalize:
Private Sub UserForm_Initialize()
TextBox_Name.Value = Sheets("Einstellungen").Range("AH1").Value
Dim finden As Range
TextBox_Achsbild = Sheets("Einstellungen").Cells(Indx + 3, 30)
TextBox_Achsbild_Adapter = Sheets("Einstellungen").Cells(Indx + 3, 31)
Set finden = Columns(29).Find(what:=TextBox_Name)
TextBox_Namen_Zelle = finden.Address
TextBox_Achsbild.Value = WorksheetFunction.VLookup(TextBox_Name.Value, Sheets(" _
Einstellungen").[Tabelle9], 2, False)
TextBox_Achsbild_Adapter.Value = WorksheetFunction.VLookup(TextBox_Name.Value, Sheets(" _
Einstellungen").[Tabelle9], 2, False)
End Sub
LG Herbert!