Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle -> Zeilen ausblenden und nicht drucken.

Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:28:37
Armin
Hallo,
ich habe folgendes Problem:
Ich habe eine Tabelle mit einer Kopfzeile. Unterhalb der Kopfzeile steht eine lange Liste. Ich möchte nun, dass alle Zeilen der Liste unterhalb der Kopfzeile ausgeblendet werden, bis in "A1" der Wert "Armin" kommt. Die ausgeblendeten Zeilen sollen dann auch aus dem Druckbereich entfernt werden. Also unterhalb der Kopfzeile soll in der ersten Zeile "Armin" stehen. Sollte die Liste den Wert "Armin" nicht enthalten, soll das Makro auch bitte nicht ewig laufen.
Kann mir jemand helfen?
Wäre toll!
Gruß
Armin

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:41:30
y
hi Arnim,
was gefällt dir im anderen Forum nicht an dem letzten code ??
das funktioniert doch genauso wie von dir gewünscht und "Arnim" und "Afrika" auszutauschen dürfte ja selbst für dich kein problem sein oder ?

Sub ausblenden_bis_afrika()
Dim i As Long
i = 2
Application.ScreenUpdating = False
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Value = "Afrika" Then Exit Sub: Application.ScreenUpdating = True
Cells(i, 1).EntireRow.Hidden = True
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

nicht ganz so freundliche grüsse
Micha
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:45:50
Armin
Hallo Micha,
ich sorry, ich wollte dich nicht ärgern. Ich such aber nach einer Ergänzung wegen dem Drukbereich. Dein Makro ist o.k. und ich habe es auch in meiner Datei. Aber die ausgeblendeten Zahlen dürfen nicht gedruckt werden.
Gruß
Armin
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
03.03.2004 13:49:39
y
ausgeblendete zeilen werden doch nie gedruckt
deswegen versteh ich dein problem ja auch nicht
wie druckst du denn ? über ein zusätzliches makro ?
cu Micha
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 09:25:14
Armin
Hallo Micha,
ich weiß, wie es besser funktionieren würde.
Also unterhalb meiner Kopfzeile (die ist 6 Zeilen lang) sind 10 ausgeblendete Zellen. Die müssen auch bleiben, sonst werden nämlich Zellbezüge zerstört. Aber unter diesen 16 Zeilen kann angefangen werden, alle Zeilen bis zum Wert "Armin" zu LÖSCHEN! Dann müsste alles passen.
Kannst du mir da nochmal helfen?
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 12:05:36
y
hi Armin,
ist doch ganz einfach
die anfangszeile wird mit i = x bestimmt
also wenn du mit der 17.ten zeile beginnen willst
nur diese zeile ändern auf:
i = 17
warum willst du denn auf einmal löschen ??
cu Micha
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 12:47:30
Armin
HiMicha,
ich möchte von Zeile 17 an (6 Zeilen ist die Kopfzeile und 10 Zeilen sind ausgeblendet mit Zellbezügen) alle Zeilen löschen, bis in A1 der Wert "Armin" steht.
Gruß
Armin
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 13:11:04
y
hi Armin,
du weisst aber was du letztendlich willst ?
das ist jetzt die letzte änderung !!

Sub loeschen_bis_afrika()
Dim i As Long
Dim j As Long
Dim gefunden As Boolean
i = 17
j = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For j = Cells(Rows.Count, 1).End(xlUp).Row To i Step -1
If gefunden = True Then
Rows(j).Delete shift:=xlShiftUp
End If
If Cells(j, 1).Value = "Afrika" Then gefunden = True
Next
Application.ScreenUpdating = True
End Sub

cu Micha
Anzeige
AW: Tabelle -> Zeilen ausblenden und nicht drucken.
04.03.2004 14:34:48
Armin
Hi Micha,
danke! Super! So hab ich mir das vorgestellt!
Gruß
Armin
danke für die rückmeldung :-) o.t.
04.03.2004 14:36:32
y
...

312 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Kommentar-marker mit drucken??
joerg

Hallo,
Ist es möglich beim drucken eines Tabellenblattes die kleinen roten Dreiecke, die das vorhandenseins eines Kommentars anzeigen, mitzudrucken?
Ich weiss natürlich dass man die Kommentare als solches drucken kann, allerdings interessiert mich wirklich nur, ob es einen Kommentar gib...
04.09.2008 15:55:00
Thread-ID: 1007447
2 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Textbox wird nicht aktualisiert während Makro...
Steve

Hallo zusammen,
Folgendes Problem:
Eine Textbox (txtInfo), welches in einem Worksheet eingefügt wurde, sollte während des Makros unterschiedliche Infos anzeigen.
Die Textbox aktualisiert sich aber nicht während des Makros, so dass nur der letzte Wert angezeigt wird, sobald das Makro...
05.03.2009 12:17:30
Thread-ID: 1056772
3 Beiträge
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 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
3
3
1
1
15
2
3
3
2
6
7
5
2
5
2
3
3
4
7
2
3
5
3
5
8