Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1572to1576
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
Inhaltsverzeichnis

Spalte vergelichen

Spalte vergelichen
21.08.2017 22:16:00
Tobiax
Hallo!
Ich möchte jede Zelle in Spalte AG vergleichen, ob sie kleiner 20 ist. Wenn ja, dann soll AF in AI geschrieben werden.
Anschließend soll die Liste alphabetisch sortiert werden (noch nicht programmiert), unter anderem, damit die leeren Felder raus sind.
So hat es nicht geklappt. Leider weiß ich nicht warum.
For i = 5 To sp_zahl
If Cells(i, "AG") < 20 Then
Range("AF" & i).Copy
Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i
Hoffe jemand kann schnell helfen.

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte vergelichen
21.08.2017 23:12:30
Werner
Hallo Tobias,
stellt sich die Frage: Warum nicht mit Formel?
Public Sub Vergleich()
Dim loLetzteAG As Long
Dim i As Long
loLetzteAG = Worksheets("Tabelle1").Cells(Rows.Count, "AG").End(xlUp).Row 'Blatt anpassen
With Worksheets("Tabelle1") 'Blatt anpassen
For i = 5 To loLetzteAG
If .Cells(i, "AG") 
Gruß Werner
AW: Spalte vergelichen
21.08.2017 23:15:18
KlausF
Hi Tobiax,
Sub Kopieren()
Dim i As Long
Dim sp_zahl As Long
sp_zahl = Cells(Rows.Count, "AG").End(xlUp).Row
For i = 5 To sp_zahl
If Range("AG" & i) 
Gruß
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige