Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code erweitern

Code erweitern
27.08.2003 17:04:48
LUCIEN
Hallo

ich habe mit hilfe von sam

Folgenden Code
Dim i as Byte
For i = 2 To 20
If Range("D"& i).Value ="NON" Then
Range("G1") =Range("A"&i)
End if
Next i

Der code funktioniert , aber ich hatte vergessen dass in der Kolonne "D" mehrmals "NON" stehen kann, mit diesem Code gibt er mir jedesmal nur den letzten "NON".
ich möchte dass er alle "Non" berücksichtigt und diese in ab G1 untereinander kopiert.
Geht das vielleicht mit SELECT CASE ??

Danke im voraus und gruss
Lucien

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code erweitern
27.08.2003 17:10:59
alex
Ändere die 4. Zeile um in :

Range("G"+i) = Range("A"+i)

gruss Alex
AW: Code erweitern
27.08.2003 17:14:15
LUCIEN
Hallo Alex

Danke das wars

Gruss Lucien
AW: Code erweitern
27.08.2003 17:14:28
Dieter Maj
Hallo Lucien

Dim i As Byte
Dim jj As Byte
jj = 1
For i = 2 To 20
If Range("D" & i).Value = "NON" Then
Range("G" & jj) = Range("A" & i)
jj = jj + 1

End If
Next i

Gruß Dieter
AW: Code erweitern
27.08.2003 17:22:08
Mac4
Noch ne Variante für Zeile 4:

Range("G" & Cells(Rows.Count, 7).End(xlUp).Row + 1) = Range("A" & i)

Marc

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige