Code funzt nicht
09.01.2006 15:09:40
Bernd
ich hänge wieder mal.
bei folgendem code komme ich nicht weiter:
Option Explicit
Private Sub CommandButton1_Click()
Dim NamenFinden As Range
Dim L As Long
If ComboBox1 = "" Then
MsgBox "Keinen Namen ausgewählt.", vbOKOnly + vbInformation, "Namen
auswählen"
ComboBox1.SetFocus
Exit Sub
Else
Set NamenFinden = Sheets("2006 - 1.").Range("A9:A30").Find
(what:=ComboBox1.Text)
If Not NamenFinden Is Nothing Then
NamenFinden.Select
' weiterer code
For L = 5 To 20
If Cells(2, L) = 1 Then
NamenFinden.Select
End If
Next
Else
Range("A1").Select
MsgBox "keine Übereinstimmung", vbOKOnly + vbInformation, "Keine
Übereinstimmung"
ComboBox1 = ""
ComboBox1.SetFocus
Exit Sub
End If
End If
und zwar hier:
If Cells(2, L) = 1 Then
NamenFinden.Select
jetzt soll der code in der zeile, wo er den namen gefunden hat, in den zellen 5:20 ein "xa" eintragen, sofern in zeile 2, 5:20 eine 1 steht.
könnt ihr mir da bitte helfen.
danke
gruss bernd