AW: Meine Antwort auf Dein Problem!
22.11.2005 04:24:09
Luc:-?
Hallo Lisa,
habe mal versucht, eine 1.Lösung für dein Problem zu finden:
Private Sub CommandButton1_Click()
Dim b As String, d As Variant, i As Long, j As Long, x As Range
With ActiveSheet
For Each x In .Range("A1:G6")
If x.Interior.ColorIndex = 15 Then
b = b & IIf(b = "", "0;", ";") & x.Value
i = i + 1
End If
Next x
' ReDim d(i) As Variant
d = Split(b, ";")
d(0) = d(2): d(2) = d(1): d(1) = .Range("A1").Value
End With
With Sheets("Datenbank")
For Each x In .Range("B:B")
If x.Value = d(1) Then
For j = 0 To i
.Cells(x.Row, j + 1).Value = d(j)
Next j
Exit For
End If
Next x
End With
End Sub
Dein ergänztes und getestetes Bsp findest du unter:
https://www.herber.de/bbs/user/28594.xls
Gruß Luc :-?