Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

fehler im makro letzte zeile

fehler im makro letzte zeile
21.07.2005 17:00:28
maik
Hallo allerseits,
ich habe folgendes Makro geschrieben. Ziel ist es, alle Zeilen die in Spalte A den Wert der letzten Zeile in Spalte A enthalten in das Blatt "2" zu kopieren. Leider funktioniert mein Makro bei allen Zeilen, nur nicht bei der letzten Zeile. kann mir jemand helfen?

Sub copy_months()
Dim i As Integer
Sheets("1").Select
For i = ActiveSheet.UsedRange.Columns(1).Cells.Count To 4 Step -1
If Cells(i, 1).Value = Cells(2, 2).Value Then
Rows(i).Select
Selection.Cut
Sheets("2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("1").Select
Else
If Not Cells(i, 1).Value = Cells(2, 2).Value Then
Cells(i, 1).Activate
End If
End If
Next i
End Sub

vielen Dank!!
maik

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

Betreff
Datum
Anwender
Anzeige
AW: fehler im makro letzte zeile
21.07.2005 17:09:17
WolleKa
Hallo maik,
Die IF-Abfrage nach Else ist doch schon in der darübergeschachtelten IF-Abfrage enthalten, eben dann, wenn diese Frage FALSCH ist.
Außerdem ist mir nicht klar, warum du bis 4 herunter zählst.
Gruß
WolleKa
AW: fehler im makro letzte zeile
21.07.2005 17:30:36
maik
stimmt schon, aber mein problem war etwas anders - trotzdem danke. ich habs eben gelöst
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige