Bonjour tout le monde,
J’ai besoin de votre aide,
Avec le code suivant je rempli un Tableau.
comment je peux changer mon code de telle facon que:
S’il ya un texte dans le textbox Kom1 il doit le prendre en commentaire si le Textbox est vide (pas de commentaire) il l’ignore.
Code :
Private Sub CommandButton1_Click()
z = 2
Do While Sheets("Tabelle1").Cells(z, 1) <> ""
z = z + 1
Loop
Sheets("Tabelle1").Cells(z, 1) = Me.BestNR
Sheets("Tabelle1").Cells(z, 2) = Me.Kunde
Dim cmt As Comment
Set cmt = Sheets("Tabelle1").Cells(z, 1).Comment
If cmt Is Nothing Then
Set cmt = Sheets("Tabelle1").Cells(z, 1).AddComment
cmt.Text Text:=Kom1.Text
End If
End Sub
Merci d’avance
Chaelo
J’ai besoin de votre aide,
Avec le code suivant je rempli un Tableau.
comment je peux changer mon code de telle facon que:
S’il ya un texte dans le textbox Kom1 il doit le prendre en commentaire si le Textbox est vide (pas de commentaire) il l’ignore.
Code :
Private Sub CommandButton1_Click()
z = 2
Do While Sheets("Tabelle1").Cells(z, 1) <> ""
z = z + 1
Loop
Sheets("Tabelle1").Cells(z, 1) = Me.BestNR
Sheets("Tabelle1").Cells(z, 2) = Me.Kunde
Dim cmt As Comment
Set cmt = Sheets("Tabelle1").Cells(z, 1).Comment
If cmt Is Nothing Then
Set cmt = Sheets("Tabelle1").Cells(z, 1).AddComment
cmt.Text Text:=Kom1.Text
End If
End Sub
Merci d’avance
Chaelo