Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ausgeblendete Zeilen nicht löschen

ausgeblendete Zeilen nicht löschen
19.11.2003 15:40:35
Melanie
Hallo, ich habe heute morgen hier im Forum unten stehenden Code bekommen. Danke dafür. Der Code löscht ab Zeile 5 abwärts bis irgendwann der Name "Armin" kommt.
Nun gibt es ein Problem. Die Liste enthält ausgeblendete Zeilen. Und diese DÜRFEN NICHT gelöscht werden. Ist dem Makro aber egal. Kann mir bitte jemand helfen dieses Makro entsprechend abzuändern?

Wäre echt toll!

Gruß

Melanie



Sub Lösch()
z = 16
Do While Cells(z, 1) <> "Armin"
z = z + 1
Loop
Rows("6:" & z - 1).Delete Shift:=xlUp
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ausgeblendete Zeilen nicht löschen
19.11.2003 15:45:13
Andi_H
Hi Melanie,
konnte den Code leider nicht testen, aber versuchs mal so.


Sub Lösch()
application.screenupdating = false
z = 16
Do While Cells(z, 1) <> "Armin"
if rows(z).hidden = false then
Rows(z).Delete Shift:=xlUp
end if
z = z + 1
Loop
Application.ScreenUpdating = True
End Sub


Gruß

Andi
AW: ausgeblendete Zeilen nicht löschen
19.11.2003 16:05:05
Melanie
Hallo Andi,

ja, er löscht und lässt auch die ausgeblendeten Zeilen stehen, aber er löscht nicht bis zu "Armin". Steht da vielleicht in den ausgeblendeten Zeilen irgendwo schon "Armin" und er bleibt deshalb stehen?

Gruß

Melanie
Anzeige
AW: ausgeblendete Zeilen nicht löschen
19.11.2003 16:18:45
Andi_H
Hi Melanie,

das liegt daran das sich die Zeilennummern beim löschen ändern. Löscht man zum Beispiel Zeile 18, dann werden alle Zeilen ab 18 nach oben gezogen, heißt 19 ist dann 18 und 18 war schon dran mit löschen.

so müßte es klappen:


Sub Lösch()
Application.ScreenUpdating = False
z = 16
Do While Cells(z, 1) <> "Armin"
If Rows(z).Hidden = False Then
Rows(z).Delete Shift:=xlUp
z = z - 1
End If
z = z + 1
Loop
Application.ScreenUpdating = True
End Sub


Gruß,
Andi
AW: ausgeblendete Zeilen nicht löschen
19.11.2003 16:41:06
Melanie
Naja,

o.k. Es kommt bis auf zwei Zeilen an den Bereich ran. Aber die Druckbereiche waren vorher festgelegt. Könntest du mir noch helfen diese zu deaktivieren?

Dann wäre die Sach eigentlich echt in Ordnung.

Danke im Voraus!

Melli
Anzeige
AW: ausgeblendete Zeilen nicht löschen
20.11.2003 09:51:45
Andi_H
Hi Melli,

Druckbereich deaktivieren geht so:

ActiveSheet.PageSetup.PrintArea = ""

wieder aktivieren mit neuen Bezügen:


Sub DruckbereichDefinieren()
Dim i, x, lRow, lCol As Long
lRow = 0
For i = 1 To 256 Step 1
If IsEmpty(Cells(65536, i)) Then
If Cells(65536, i).End(xlUp).Row > lRow Then _
lRow = Cells(65536, i).End(xlUp).Row
Else
lRow = 65536
Exit For
End If
Next
For x = 256 To 1 Step -1
If IsEmpty(Cells(65536, x)) Then
If Cells(65536, x).End(xlUp).Row <> 1 Then
lCol = x
Exit For
End If
Else
lCol = x
Exit For
End If
Next
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(lRow, lCol).Address
End Sub


Wie war das mit den Zeilen die er nicht löscht?? Bitte nochmal genau beschreiben welche Zeilen der Code ausläßt, das kann man sicher auch noch beheben.

Gruß

Andi
Anzeige

317 Forumthreads zu ähnlichen Themen

Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
Anzeige
Word nach Excel kopieren mit Zeilenumbruch/Absatz
Christian

Hi Leute,
hab jetzt mal rumgesucht im Archiv, aber leider nichts gefunden.
Habe ein Word-File, das ich jetzt nach Excel übertragen will.
Ich kopiere hierfür Zeile für Zeile, was auch wunderbar funktioniert.
Was ist jedoch, wenn ich in der Word-Tabelle einen Zeilenumbruch habe?
04.11.2008 07:42:00
Thread-ID: 1021456
5 Beiträge
Zellenwert nicht kopieren
HannaG

Hallo,
mir fällt nicht ein, wie ich die Überschrift am Besten formulieren könnte. Besser ich erkläre das Problem:
Ich habe den Code in Zeile10 z.b.
=WENN(UND(A7>8.98;A7 Jetzt will ich den Code in die Zeilen darunter zihen, sodaß sich natürlich jeweils AB10 und AE10 in AB11 und AB...
07.11.2008 14:41:52
Thread-ID: 1022683
3 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
kkleinste (ohne ausgeblendete Spalten)
Rainer

Hallo,
suche nach einer Möglichkeit, kkleinste jedoch ohne Berücksichtigung ausgeblendeter SPALTEN zu nutzen.
Habe in einem anderen Forum schon gepostet und bekam nur die Funktion TEILERGEBNIS mitgeteilt. Diese wiederrum klappt wohl nur mit Zeilen. Deshalb habe ich weiter gesucht und bi...
07.02.2009 19:33:00
Thread-ID: 1048127
14 Beiträge
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
Da...
11.03.2009 16:06:48
Thread-ID: 1059163
3 Beiträge

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
9
2
4
2
2
11
3
13
3
2
2
1
20
1
1
5
2
2
1
7
8
5
12
7
2