Beiträge zum Thread: Einblenden Zeile funktioniert mit gängigen Mitteln nicht

Moin!
Dann solltest Du die Datei mal hochladen.
Vorhandene Werte kannst Du ja löschen.

Gruß Ralf

Hallo, Ralf,
diese Antwort verstehe ich nicht - die Datei ist hochgeladen und die Werte bzw. die eingepflegten Daten will ich natürlich behalten.

Das Hochladen auf den Server bringt uns erst mal nichts.
Auf der Bestätigungsseite erhältst Du den Hinweis, dass der Link in die Antwort zu kopieren ist:

(die Seite sieht mittlerweile etwas anders aus)

Hallo, Ralf,

ich hoffe, ich mache das hier richtig, dies ist die fragliche Datei:

https://www.herber.de/bbs/user/180665.xls

Hier gibt es in der Mappe Bucherwerb z.B. zwischen den Zeilen 179-249 und 290-509 Lücken.

Mit freundlichen Grüßen

Wolfgang

Moin Wolfgang, :-)

... ist dieses Makro laufen zu lassen - achte darauf, dass das richtige Tabellenblatt aktiv ist, wenn du das Makro ausführst. ;-)

Option Explicit

Public Sub Main()

    Dim rngRange As Range

    For Each rngRange In ActiveSheet.UsedRange.Rows

        rngRange.Hidden = False

        rngRange.RowHeight = 15

    Next rngRange

End Sub

Servus
Case

Hi,
hat jmd ausgeblendet.So sollte man den Scheiß auch sehen:

Option Explicit



Public wb As Workbook

Public wks As Worksheet

Public rgZeilen As Range

Public lngZeilen As Long, lngZeile As Long



Public Sub zeigewks()

    Set wb = ThisWorkbook 'wenn Code in anderer (bspw neuer) Datei hier:

    'Set wb = Workbooks ("NAME.xls")

    Set wks = wb.Worksheets("Bucherwerb 2020 bis 2026")

    Set rgZeilen = wks.UsedRange

    lngZeilen = rgZeilen.Rows.Count

    For lngZeile = 2 To lngZeilen

        With rgZeilen.Rows(lngZeile)

            .RowHeight = 15

        End With

    Next lngZeile

    rgZeilen.Rows.AutoFit

End Sub

hth
Ulf

wo ist das Problem?
Das Makro hatte ich nach Aufzeichnung geändert auf die fehlenden Zeilen und es klappte sofort ohne Probleme
Sub Makro1()
Rows("180:239").Select
Selection.EntireRow.Hidden = False
Rows("291:508").Select
Selection.EntireRow.Hidden = False
End Sub
Gruß
Jochenm

Rows.hidden = false

ja, ist schon klar!!
Bitte es so zu verstehen, dass ich dem Fragesteller damit zeigen wollte, wie er es selbst hätte lösen können.
Gruß
Jochen

Du solltest dir mal angewöhnen, alle Meldungen durchzulesen statt alles wegzuklicken. Es ist eigentlich idiotensicher erklärt.

Hallo, Onur!
Von Wegklicken kann nicht die Rede sein - ich bin nun mal nicht 24 h online, kann mir nicht alle Beiträge zeitnah ansehen, alle Tipps ausprobieren und kommentieren. Wer hat wo alles idiotensicher erklärt? Danke jedenfalls für Ihre Einschätzung meiner Geistesverfassung. Wo soll dieser Umgangston hinführen?

Hi Harakiri
der Hinweis von Onur bezieht sich einzig und allein auf den Vorgang des Hochladens einer Datei.
Also mit den Informationen, die dir dort auf dieser Seite gegeben werden. Die solltet du lesen, verstehen und anwenden.
Gruß Daniel

Moin,

Ralf hat dir geschrieben,
dass dein Beitrag keinen Link auf (d)eine ins Forum hochgeladene Datei enthält,
wie du beim Hochladen den Link angezeigt bekommst,
damit du diesen Link in deine Beitrag kopieren kannst
und potentielle Antworter deine Datei ansehen u. nachtesten können.

Du bist am Zug.

Gruß Gerd

Hi
ich konnte die Zeilen ab 180 wieder anzeigen lassen, in dem ich sie zusammen mit der darüberliegenden sichtbaren und der darunter liegenden unsichtbaren markiert habe und dann einen Doppelklick auf auf eine Trennlinie zwischen den Zeilen in den Zeilenköpfen (dort wo die Zeilennummern stehen) gemacht habe.
dann wurden sie wieder angezeigt.
Damit hat es funktioniert, andere Methoden zum Einblenden haben (wie z.B. die Zeilenhöhe über das Kontextmenü vorgeben) haben nicht funktioniert, warum, kann ich dir leider nicht sagen.
Aber mit dem Doppellick gings

außderdem hast du noch einen Autofilter in den Spalten I:J ab der Zeile 607.

Gruß Daniel

Hallo, Daniel!

Vielen Dank für diesen einfachen Lösungsweg, das klappt offensichtlich. Bin sehr froh darüber!

Mit freundlichen Grüßen

Wolfgang