Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1044to1048
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
leere Zellen ausblenden
27.01.2009 13:10:00
Christoph
Habe folgendes Problem, dass ich mit einem neuen Makro lösen will:
Aus einem Eingabebereich kopiere ich über Verlinkungen die Zelleninhalte in einen Ausgabebereich, der mir 200 Zeilen Platz für die Daten läßt. Damit ich optisch einen schönen Ausgabebereich habe, sollen nun mittels eines Markos alle leeren (bis 3 Zeilen) ausgeblendet werden. Habe mir aus dem Internet schon ein Marko gesucht, dass alle Zeilen einzeln auf Inhalt prüft und dann die leeren ausblendet. Problem daran ist, dass das Marko über 15 Blätter läuft und daher über eine Minute dauert, was meinem Chef einfach zu lange dauert. Zur Lösung habe ich mir schon einige Gedanken gemacht, die (so glaube ich) nur an meinen limitierten VBA-Kenntnissen scheitern:
Ich berechne bereits die Anzahl der ausgefüllten Zeilen im Eingabebereich mittels einer Formel. Jetzt müsste es doch möglich sein die entsprechende Anzahl + 3 an Zeilen einzublenden, wenn ich vorher den entsprechenden Bereich im Ausgabeblatt mittels Makro ausgeblendet habe. Müsste doch mittels VBA-codes umsetzbar sein, oder?
Schon mal vielen Dank im vorraus!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeig mal den existierenden Code
27.01.2009 14:31:08
RS
Christoph,
Dann kann man ihn vielleicht "tunen".
Grüsse RS
AW: Zeig mal den existierenden Code
28.01.2009 15:32:04
Christoph
Hallo RS,
folgendes Makro lasse ich ca. 15 mal über die entsprechenden Zeilen ablaufen:

Sub Ausblenden_der_Zeilen()
'blendet die leeren Zeilen im Ausgabebereich aus
Rows("1:206").EntireRow.Hidden = False
For n = 206 To 10 Step -1
If Application.WorksheetFunction.Sum(Range(Cells(n, 1), Cells(n, 1))) = 0 Then
Cells(n, 1).EntireRow.Hidden = True
End If
Next n
End Sub


Für ein Tuning wäre ich dankbar!
Grüsse Christoph

Summe auf leere Zellen ?
28.01.2009 16:13:00
RS
Hi Christoph,
Der Code macht wenig Sinn.
Was steht den in den Zellen in der Spalte A?
Text, Formeln, Zahlen ?
Hast du es schon mal mit einem Autofilter (Nichtleere) versucht ?
Grüsse RS
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige