vba für fortlaufendes zellenfüllen

Bild

Betrifft: vba für fortlaufendes zellenfüllen
von: manni
Geschrieben am: 09.03.2005 01:51:28
hallo zusammen,
Wenn ich in zelle A1 im Tblatt(los) eine "1" schreibe soll in A2 ein "B" geschrieben werden und zelle A3 soll leer bleiben dann wieder "1", "B", leere Zelle usw bis Zelle A50.
Steht in A1 ein "B", soll A2 leer bleiben und in A3 dann eine "1" usw
Bleibt A1 leer, dann in A2 "1", A3 "B" usw.
Dann sollen 3 Spalten leer bleiben und dann in E1 mit dem nächsten wert abhängig von A50 weiter gemacht werden. Das soll 8mal so weiter gehen, jeweils 3 Spalten freilassen und dann von Zelle 1 bis 50 füllen.
Hoffe mir kann einer weiter helfen
gruss manni

Bild

Betrifft: AW: vba für fortlaufendes zellenfüllen
von: WernerB.
Geschrieben am: 09.03.2005 07:48:48
Hallo Manni,
dieses Makro gehört in das Modul des betreffenden Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    'Spalte "A":
    Select Case Range("A1").Text
      Case "1"
        Range("A2").Value = "B"
        Range("A3").ClearContents
      Case "B"
        Range("A2").ClearContents
        Range("A3").Value = "1"
      Case ""
        Range("A2").Value = 1
        Range("A3").Value = "B"
      Case Else
        Exit Sub
    End Select
    Range("A1:A3").AutoFill Destination:=Range("A1:A50"), Type:=xlFillCopy
    'Spalte "E":
    Range("E1:E48").Value = Range("A3:A50").Value
    Range("E49:E50").Value = Range("A3:A4").Value
    'Spalte "I":
    Range("I1:I49").Value = Range("A2:A50").Value
    Range("I50").Value = Range("A3").Value
    'Spalten "M" und "Y":
    Range("M1:M50").Value = Range("A1:A50").Value
    Range("Y1:Y50").Value = Range("A1:A50").Value
    'Spalten "Q" und "AC":
    Range("Q1:Q50").Value = Range("E1:E50").Value
    Range("AC1:AC50").Value = Range("E1:E50").Value
    'Spalten "U" und "AG":
    Range("U1:U50").Value = Range("I1:I50").Value
    Range("AG1:AG50").Value = Range("I1:I50").Value
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: Spät aber trotzdem, vielen Dank o.T.
von: manni
Geschrieben am: 10.03.2005 06:11:41

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Listindex"