Kommentar, wenn TxtBox höher als 0
Wolfgang
mit dem untenstehenden Code werden Daten in eine Tabelle übernommen. Wäre denkbar, den Code so anzupassen, dass i.d. entspr. Zelle ein Kommentar (siehe weiteren Code) eingefügt wird, wenn der Wert der Textboxes 9-12 jeweils höher als 0 ist (vorbelegt mit 0, jeweils nur eine Textbox dürfte dabei mehr als 0 haben). Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub Aendern() ' Ändern
Dim intZ As Integer
Dim durchsuchen, finden As Range
Set durchsuchen = Sheets("Daten").Range("A2:B" & _
Sheets("Daten").Range("A65536").End(xlUp).Row)
For Each finden In durchsuchen
If finden.Text = TextBox1.Text Then
intZ = finden.Row
Exit For
End If
Next finden
Cells(intZ, 1) = TextBox1 ' Name
Cells(intZ, 2) = TextBox2 ' Vorname
Cells(intZ, 3) = TextBox3 ' Kundennummer
Cells(intZ, 4) = TextBox4 ' Team
Cells(intZ, 5) = TextBox5 ' von
Cells(intZ, 6) = TextBox6 ' bis
Cells(intZ, 7) = TextBox7 ' Dauer in Monaten
Cells(intZ, 8) = TextBox8 ' ziel
Cells(intZ, 9) = CLng(TextBox9)
Cells(intZ, 10) = CLng(TextBox10)
Cells(intZ, 11) = CLng(TextBox11)
Cells(intZ, 12) = CLng(TextBox12)
Cells(intZ, 13) = CLng(TextBox13) '1 Jahr
Cells(intZ, 14) = CLng(TextBox14) '2 Jahr
Cells(intZ, 15) = CLng(TextBox15) '2 Jahr
Cells(intZ, 16) = CLng(TextBox16) 'folg. Jahr
TextBox17.SetFocus
Call Sortieren
Unload Me
Sheets("Start").Select
Range("A1").Select
End Sub
Sub kommentar_anlegen()Dim Zelle As Range
Set Zelle = ActiveCell
If Zelle.Value > 1 Then
On Error Resume Next
Zelle.AddComment
On Error GoTo 0
Zelle.Comment.Text Text:=Format(Date, "DD.MM.YYYY") & Chr(10) & Environ("Username")
End If
End Sub