If Then Anweisung
17.03.2005 15:21:01
Frank
ich habe da mal eine Frage zur einer Abfrage
das Makro fängt an zu schauen ob ein Wert in Zeile 2 Spalte 2 steht und legt dementsprechend ein Arbeitsblatt an. Ist es möglich der Anweisung eine Ver-knüpfung noch aufzudrängeln in dem ich sage If.cells(2,i) + Wert darf nur acht Zeichen haben erst dann erstelle ein neues Blatt und kopiere diese daten dorthin.
Danke und gruß Frank
Sub Create_Sheets()
Dim i As Integer
Dim qWks As Worksheet, tWks As Worksheet
Dim ziel
Set qWks = Worksheets("Tabelle1")
With qWks
For i = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(2, i) "" Then
Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
tWks.Name = .Cells(2, i).Text
.Range(.Cells(3, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tWks.Cells(2, 3)
ziel = tWks.Name