gleichzeitige Eingabe in Bereiche
18.04.2008 23:29:36
Machtwas
Hallo an Alle,
ich habe einen Eingabebereich Sheet"Januar" F29:AJ38 (nur für Buchstaben )
benötige einen VBA -Code der mir gleichzeitig die Bereiche
Sheet"Januar" F67:AJ76 u. F105:AJ114 mit den Daten des eingabereichs füllt - DANKE im vorraus!
gez.Matth.
Ps.: folgender Code ist für das einfärben der Bereich noch in Sheet"Januar"
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rc As Range
Dim lx As Long
Dim bSet As Boolean
If Intersect(Target, Range("F11:AJ38,F49:AJ76,F87:AJ114")) Is Nothing Then Exit Sub
For Each rc In Target.Cells
For lx = 2 To 32 Step 6
If rc.Value = Cells(6, lx).Value Then
rc.Interior.ColorIndex = Cells(6, lx).Interior.ColorIndex
bSet = True
End If
Next lx
If Not (bSet) Then rc.Interior.ColorIndex = 2
Next
Calculate
End Sub