Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

if then abfrage zum Alter

if then abfrage zum Alter
25.04.2006 13:39:25
Gottschi
Hallo, habe ein kleines Problem. Benötige auf dem Tabellenblatt "VerzugsListe" eine Ausgabe aller Einträge ("Dateneingabe") die im Feld 94 ("CP") Verzug oder Ausschluß zu stehen haben und vom Alter her jünger als 18 (Feld 67 "BO")sind. Das Gleiche liegt nocheinmal mit älter als 18 vor. Nun zum Problem: Soweit klappt es ganz gut. Nur alle Einträge die jünger als 10 sind, also Zellinhalt 0 bis 9 werden bei den "älter als 18" angezeigt und nicht wie es eigendlich sein sollte bei "jünger als 18". Hat vielleicht jemand eine Idee woran es liegen könnte? Hier der Code:
.
.
.
Case 2
Application.Calculation = xlCalculationManual
Rows("15:300").Select
Selection.Delete Shift:=xlUp
Sheets("Dateneingabe").Activate
For Z1 = Cells(1000, 1).End(xlUp).Row To 1 Step -1
If Cells(Z1, 94) = "Verzug" And Cells(Z1, 67) &lt "18" Then
Range(Cells(Z1, 1), Cells(Z1, 4)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 1)
Range(Cells(Z1, 57), Cells(Z1, 59)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 5)
Range(Cells(Z1, 94), Cells(Z1, 98)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 8)
Z2 = Z2 + 1
ElseIf Cells(Z1, 94) = "Ausschluss" And Cells(Z1, 67) &lt "18" Then
Range(Cells(Z1, 1), Cells(Z1, 4)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 1)
Range(Cells(Z1, 57), Cells(Z1, 59)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 5)
Range(Cells(Z1, 94), Cells(Z1, 98)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 8)
Z2 = Z2 + 1
End If
Next Z1
.
.
.
Danke schonmal im voraus
Gruß Gottschi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if then abfrage zum Alter
25.04.2006 14:08:29
ingoG
Hallo Gottschi,
versuchs mal so:
...and format(Cells(Z1, 67),"00") &lt "18" Then
gruß Ingo
PS eine Rückmeldung wäre nett...
AW: if then abfrage zum Alter
25.04.2006 14:45:12
Gottschi
Danke Dir, hab nach mehrmaligen Probieren rausgefunden, dass es an den Anführungszeichen um die 18 lag. Damit hat er natürlich nicht berechnet...
Trotzdem vielen Dank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige