Ich habe ein Add-Inn in dem Grunddaten zur weiteren Verarbeitung hinterlegt werden. Funktioniert auch so. Jetzt will ich das erweitern und zwar soll der Nutzer Daten ändern können. Um auf einen Bereich zuzugreifen (A30:A42) brauche ich ein .Select um die jeweilige zu ändernde Zeile auszuwählen.
Private Sub cboName_Change()
'Set Pfad = Workbooks("Ausl.xla").Worksheets("Tabelle1")
Set Pfad = ThisWorkbook.Worksheets("Tabelle1")
TextBox1.Text = Pfad.Cells(cboName.ListIndex + 30, 1)
TextBox2.Text = Pfad.Cells(cboName.ListIndex + 30, 2)
TextBox3.Text = Pfad.Cells(cboName.ListIndex + 30, 3)
Cells(cboName.ListIndex + 30, 1).Select
End Sub
Funktioniert beim testen als Ausl.xls aber nicht wenn die Mappe als Ausl.xla gespeichert wird
Hier die Mustermappe: https://www.herber.de/bbs/user/46096.xls
Vielleicht hat jemand eine Idee?
Danke im Voraus
Herbert