VBA Lösung bitte gesucht
16.03.2006 11:12:11
Josef
mit nachfolgendem Code werden die in den Textboxen 2-16 angezeigten Werte ab der dritten spalte in das aktive Tabellenblatt eingetragen.
Wo und wie müßte ich bitte den Code dahingehend ändern, wenn ich erreichen will, dass der Wert in den Textboxen 2,7 und 12 nicht in das Tabellenblatt eingetragen werden soll?
Danke
Josef
If Nametxt1.Text = usertxt1 And _
Label72.Caption = "Hauskrankenpflege über 4 Wochen" And _
Label78.Caption = "Heilbehelfe und Hilfsmittel" And _
Label84.Caption = "KH - Aufnahmeanzeigen" Then
Dim rngFind As Range
Dim intCount As Integer, intCol As Integer, lngRow As Long
If Not IsDate(datumtxt1) Then Exit Sub
'With Sheets("Tabelle1")
With ActiveSheet
'Set rngFind = .Range("B:B").Find(what:=CDbl(TextBox1), LookAt:=xlWhole, LookIn:=xlValues)
'Set rngFind = .Range("B:B").Find(what:=CDate(TextBox1), LookAt:=xlWhole, LookIn:=xlValues)
Set rngFind = .Range("B:B").Find(What:=CDate(datumtxt1), LookAt:=xlWhole, LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
lngRow = rngFind.Row
intCol = 3
For intCount = 2 To 16
Select Case intCount
Case 2 To 16
If Len(Trim$(Controls("TextBox" & intCount))) > 0 Then
If IsNumeric(Controls("TextBox" & intCount)) Then
.Cells(lngRow, intCol) = CDbl(Controls("TextBox" & intCount))
Else
.Cells(lngRow, intCol) = Controls("TextBox" & intCount)
End If
End If
intCol = intCol + 1
Case Else
lngRow = lngRow + 1
intCol = 3
End Select
Next
End If
Set rngFind = Nothing
End With
Else
'Hain
If Nametxt2.Text = usertxt1