Microsoft Excel

Herbers Excel/VBA-Archiv

gleichzeitige Eingabe in Bereiche

Betrifft: gleichzeitige Eingabe in Bereiche von: Machtwas
Geschrieben am: 18.04.2008 23:29:36

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


  

Betrifft: AW: gleichzeitige Eingabe in Bereiche von: Mustafa
Geschrieben am: 19.04.2008 01:00:52

Hallo Matth. ,

hier mal ein code der die daten aus dem Bereich F29:AJ38 ind die Bereiche F67:aj67 und F105:AJ114 kopiert.

Sub kopieren()
Dim Xarr As Variant

Xarr = Range("F29:AJ38")
Range("F67:AJ76") = Xarr
Range("F105:AJ114") = Xarr


End Sub



Rückmeldung obs hilft wäre nett.
Viele Grüße aus Köln.


 

Beiträge aus den Excel-Beispielen zum Thema "gleichzeitige Eingabe in Bereiche"