Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Aktive Zeile markieren

VBA Aktive Zeile markieren
Dirk
Hallo Forum,
wie kann ich in VBA eine aktuelle Zeile selektieren?
Ich habe eine Schleife, in der ich in einer Spalte Zellen mit Inhalt 0 suche - wenn ich eine Zelle gefunden habe, dann soll die entsprechende Zeile markiert werden damit ich sie dann löschen kann.
Vielen Dank!
Gruß
Dirk

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Aktive Zeile markieren
08.10.2010 10:52:07
Hajo_Zi
Hallo Dirk,
in VBA ist zu 99,9% select nicht notrwendig.
Nur wenige sehen Deinen Code.

AW: VBA Aktive Zeile markieren
08.10.2010 10:59:16
Dirk
Hallo Hajo,
ich verstehe nur den ersten Satz......
Anfängern verwenden "Select" aber wahrscheinlich zu 99,9% und dazu zähle dann ich. Mit der Erkenntnis ist mein Problem aber nicht gelöst. Ich bin eben noch in dem Stadium, dass ein Code funktionieren soll und ich vor allem weiß wie und warum - dann kann ich ja ans Optimieren gehen..... Schön, wenn ich soweit wäre. Nun aber:
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = 0 Then
"Markiere mir die aktuelle Zeile" (Was kann ich hier hinschreiben?)
Selection.Delete
End If
Loop
Was meinst Du mit "Nur wenige sehen Deinen Code"?
Gruß
Dirk
Anzeige
AW: VBA Aktive Zeile markieren
08.10.2010 11:04:36
welga
Hallo,
z.b. so:
suche in Spalte a den Wert "0" und lösche dann die entsprechende Zeile:
letztezeile = Sheets(1).[a65536].End(xlUp).Row
For i = letztezeile To 1 Step -1
If Cells(i, 1) = 0 And Cells(i, 1) "" Then Rows(i).Delete shift:=xlUp
Next i
Wie Hajo schon gesagt hat, ist ein selektieren nicht nötig
Gruß
AW: VBA Aktive Zeile markieren
08.10.2010 11:09:18
Dirk
Hallo Welga,
vielen Dank! So werde ich es machen. Blöd ist nur, dass ich da selbst nicht drauf gekommen wäre und gern nochmal wüßte, ob mein für mich etwas einfacherer Gedanke auch gehen kann.
Aber trotzdem herzlichen Dank!
Gruß
Dirk
Anzeige
AW: VBA Aktive Zeile markieren
08.10.2010 11:20:15
Luschi
Hallo Dirk,
mir gefällt der folgende Ansatz besser:
https://www.herber.de/forum/messages/1181369.html
hier werden die zu löschenden Zeilen in ein Range-Objekt definiert und dann mit einem einzigen Delete-Befehl aus der Tabelle entfernt.
Gruß von Luschi
aus klein-Paris
AW: VBA Aktive Zeile markieren
08.10.2010 11:20:23
welga
Grundsätzlich vom Gedanken her, sollte dein Lösungsansatz auch funktionieren. Jedochwenn du etwas löschen willst, dann würde ichgenerell von unten anfangen und mich nach oben durch arbeiten.
Dein Code würde z.B. stehen bleiben, sobald eine leere Zelle vorliegt. Da würde ch dann eine Variable (Integer oder Long) einfügen den ich dann immer um 1 wachsen lassen würde.
z.B. so:
i=0
Do Until i=2000 'letzte gewünschte zu untersuchende zeile
if Cells(i+1,1)=0 and Cells(i+1,1)"" then row(i+1).delete shift:=xlup
i=i+1
Loop
Anzeige
AW: VBA Aktive Zeile markieren
08.10.2010 11:37:08
Dirk
Dieser Fall kann nicht vorkommen, da leere Zellen schon vorab innerhalb des Codes rausgelöscht werden - auf einem ähnlichen Weg wie von Dir vorgeschlagen (habe ich mir aber auch mal irgendwoher kopiert und ich wollte es jetzt mal so versuchen, wie ich es auch selbst verfassen könnte...).
Ich habe es jetzt so gemacht wie von Dir vorgeschlagen und es funktioniert. Dennoch würde ich weiterhin gerne wissen, wie ich eine aktive Zeile ohne eine Variable als Zähler markieren kann.... :-)
Ich schaue mir gleich den anderen Vorschlag der gerade gepostet wurde nochmal an - vielleicht geht das in die Richtung. Meine Laienaugen haben das aber auf den ersten Blick als nicht einfacher identifiziert.....
Vielen Dank!
Dirkl
Anzeige
AW: VBA Aktive Zeile markieren
08.10.2010 11:56:12
M.
Ok, wenn du es unbedingt so willst. :)
Ich denke du meinst sowas in der Richtung:
Sub ttt()
ActiveCell.EntireRow.Select
Selection.Delete
End Sub
Gruß
Rudi
AW: VBA Aktive Zeile markieren
08.10.2010 11:49:03
Heinz
Hallo Dirk,
wenn du es unbedingt willst, dann so:
rows(activecell.row).delete
Gruß
Heinz

316 Forumthreads zu ähnlichen Themen

Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Formel gegen Doppelvergabe einer Zellennummer
anke2245

Hallo, Excelfreunde,
es taucht ein kleine Unwissenheit auf.
Folgendes: In einer Vereinstabelle muß ich 16 Vereinen eine Codenummer zuweisen ( Zweistellig )
also von 1- 16.
Da ich nicht das ganze Arbeitsblatt überblicken kann möchte ich, daß ich in die Eingabenzellen vorher eine...
06.12.2008 18:44:00
Thread-ID: 1030727
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
2
4
5
10
5
6
2
6
2
5
1
5
4
8
4
4
5
3
10
4
3
2
4
1