If Then Anweisung

Bild

Betrifft: If Then Anweisung von: Frank P.
Geschrieben am: 17.03.2005 15:21:01



Hallo zusammen,
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

Bild


Betrifft: AW: If Then Anweisung von: Frank Domke
Geschrieben am: 17.03.2005 15:33:39


If Len(.Cells(2, i) & "") > 0 and Len(.Cells(2, i) & "") < 9 Then

Das mit dem "" muss sein, damit im Falle dessen, das die Zelle leer ist, kein Fehler auftritt.
Viel erfolg
Frank.


Bild


Betrifft: AW: If Then Anweisung von: Frank
Geschrieben am: 17.03.2005 18:10:45

genau das hatte ich gesucht

Danke für deine Hilfe

Frank


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mehrere Zellen vergleichen, doppelte Werte finden"