AW: ComboBox- u. TextBox-Inhalt in Zelle zusammen
04.05.2007 13:22:10
Lenhard
Hallo Jürgen!
Nun habe ich doch noch ein wenig Zeit gefunden, bevor ich zur Arbeit fahre. Mir ist nämlich das Problem inzwischen ein wenig klarer geworden.
Ich brauche nicht die Cell-Zuordnung in Deinem Skript.
Diese wird nämlich an "höherer Stelle" im UF-Skript realisiert.
Application.ScreenUpdating = False
With Sheets("Röntgendokumentation")
.Unprotect
lz = .Range("B:P").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1 'Prüft ob eine Zeile kpl. frei ist
.Cells(lz, 2) = WorksheetFunction.Max(Range(.Cells(5, 1), .Cells(lz, 2))) + 1 'Realisiert die fortlaufende Nummerierung in Spalte B
' ###Hier sind natürlich andere Zuordnungen
.Cells(lz, 8) = ComboBoxUntersuchung & TextBoxUntersuchung 'so will ich die Werte übergeben
.Cells(lz, 8) = ComboBoxUntersuchung & " / " & TextBoxUntersuchung 'dieses ist im Prinzip Dein und Chris sein Vorschlag
' ###Hier sind weitere andere Zuordnungen
.Protect
End With
Unload Me
Set wsRD = Nothing
Application.ScreenUpdating = True
Weiter unten im UF-Skript habe ich dann folgendes stehen:
Private Sub UserForm_Activate()
With TextBoxDatum
.Text = Format(Date, "dd.mm.yyyy")
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
With TextBoxUntersuchung '##UM DIESE TEXTBOX HANDELT ES SICH##
' Hier müßte ein Skript rein in etwa so: Wenn in TB-Untersuchung ein Text geschrieben wird, _
dann soll diese TB " / " & den gerade geschrieben Inhalt ausgeben
End With
End Sub
Ist das so verständlich? Ich habe es natürlich versucht mit meinem bescheidenen VBA-Wissen zu lösen... ...stoße aber immer noch an Grenzen.
Gruß
Lenhard