Herbers Excel-Forum - das Archiv

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