vba code anpassen
23.08.2003 10:49:44
Gery F
kann mir von euch jemand behilflich sein?
Ich habe folgendes macro und kann es leider nicht so umstellen, dass eintäge
in spalte "AS" ab zelle 13 behandelt werden
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim var As Variant
Dim intRow As Integer
var = Application.Match(CDbl(txtValue.Text), Columns(1), 0)
If Not IsError(var) Then
MsgBox "Wert ist bereits vorhanden!"
Else
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1) = txtValue.Text
End If
End Sub
Private Sub UserForm_Click()
End Sub