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"