Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Spalte vergelichen

Forumthread: Spalte vergelichen

Spalte vergelichen
22.08.2017 00: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.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte vergelichen
22.08.2017 01: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
Anzeige
AW: Spalte vergelichen
22.08.2017 01: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum