Beide folgenden Codes waren mal einer. Weil es nicht klappte, habe ich getrennt.
Die eine Textbox txtTermine wird klaglos gefüllt, wenn das entsprechende Makro aufgerufen wird,
die andere, die ihren Wert aus einer
anderen Tabelle beziehen soll, bleibt leer. Ich fummele schon den ganzen Nachmittag daran herum und kann mir nicht erklären, wo ich den Fehler gemacht habe.
Gesucht habe ich auch schon wie ein Blöder in Literatur und H. Herbser's CD. Mir scheint's das Hirn vernagelt zu haben.
Sub frmTermineFüllen()
Dim r As Integer, c As Integer, tbk As Worksheet
Set tbk = Sheets("Kalender")
r = ActiveCell.row
c = ActiveCell.Column
Application.ScreenUpdating = False
frmTermine.txtTermin = tbk.Cells(r, 1) & " um " & _
Format(tbk.Cells(1, c), "hh:mm")
Application.ScreenUpdating = True
End Sub
Sub frmTermineFüllen2()
Dim rd As Integer, tbd As Worksheet
Set tbd = Sheets("Daten")
rd = ActiveCell.row
Application.ScreenUpdating = False
frmTermine.txtProband.Value = tbd.Cells(rd, 1).Value
Application.ScreenUpdating = True
End Sub
Für Hilfe bin ich dankbar.
Grüße, Fritz