Problem mit Loop in Loop
11.02.2008 16:11:00
Thomas
ich habe eine liste mit mehreren spalten (in dem fall bis BQ), die als übersichtsblatt mit verschiedenen variablen fungiert. nun möchte ich aus dieser liste für jede variable ein einzelnes sheet erstellen, damit ich sie dann dementsprechend sortieren kann (das hab ich noch nicht verarbeitet; frag ich euch evtl. nachher :) aus dem übersichtsblatt sollen die spalten A bis F immer mitübertragen werden und in Spalte G würde dann die jeweilige Variable stehen.
dazu hab ich mal ein makro geschrieben und komme an einer stelle nicht weiter. und zwar soll beim ersten mal die spalte G aus dem blatt "übersicht" kopiert werden, beim zweiten mal G+1, also H, danach G+2 etc. muss ich da mit einem weiteren loop arbeiten oder was wäre da am sinnvollsten?
2 andere fragen:
a) ich hab die anzahl der variablen meiner meinung nach etwas umständlich mit intNr definiert. will eigentlihc nur, daß er ab spalte G bis zur letzten benutzten spalte die spaltenanzahl ausrechnet. gehts auch einfacher?
b) es werden ja 63 sheets kopiert. kann man die automatisch benennen lassen (z.b. in abhängigkeit von der spaltenüberschrift im übersichtsblatt?
danke u gruß,
thomas
Dim intNr As Integer
intNr = Cells(1, Columns.Count).End(xlToLeft).Column - 6
For i = 1 To intNr
Sheets("übersicht").Select
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Range("G:BQ").Select
Selection.ClearContents
Sheets("übersicht").Select
Range("G:G").Select
Selection.Copy
Sheets(Sheets.Count).Range("G1").Select
ActiveSheet.Paste
Next i
End Sub