leere Zeile in mehreren Tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd,
da ich unten schon eine gute Lösung für Mo geschrieben habe erlaube ich mir mal, hier im geschlossenen Thread weiter OT zu sein statt oben den offenen Thread zu missbrauchen.
Ich bin seit über 15 Jahren hier - Hajo war damals schon da. Das Thema "Hajo nervt" kommt mindestens (!) einmal im Jahr und ist nie produktiv, da Hans ihn hier duldet (und er ist der einzige, der etwas entscheiden dürfte). Gleiches gilt auch für Kollegen Luc:?, über dessen Schreibstil sich ebenfalls mindestens einmal im Jahr jemand entrüstet. Im Gegensatz zu Hajo ist Luc dabei allerdings nicht nervig :-)
Ich bin kein Arzt (du auch nicht, nehme ich an) und darf daher keinen "Hirnschaden" diagnostizieren. Aber wenn ich raten müsste, würde ich auf HFA (High-Functional Autism) tippen. Das ist himmelweit vom Hirnschaden entfernt, nicht umsonst gibt es "Autism Pride Days" und ähnliches. Und ... ein gewisses Maß an Autismus hilft einfach, in einem so komplexem Thema wie Excel up-to-date zu bleiben. Ich weiß das, weil ich selbst im Spektrum stehe - und somit von deinem "Hirnschaden" Spruch ebenfalls beleidigt wurde, aber nix für ungut ich weiss dass du weder mich persöhnlich noch es im allgemeinen böse meintest.
Unterm Strich: ignorier Hajo einfach, wenn er dich nervt. Wenn er Threads schließt, mach sie mit einem freundlichem (!!!) Hinweis wieder auf. Oder poste einfach selbst eine Lösung drunter, dann bist du schlauer als der Allwissende gewesen :-) so mache ich es meistens.
Liebe Grüße,
Klaus
(Fortsetzen des Gesprächs gerne per Email, wenn du Interesse hast)

…Klaus,
und ich hier ebenfalls fast 16 Jahre aktiv bin, kann ich dir ja verraten, was HWH einst diesbzgl schon vor nahezu 15 Jahren meinte, sinngemäß man möge doch den Schreibstil eines Antworters respektieren (bzw tolerieren). Damals gab es noch ein extra OT-Forum, bei dem man sich auch nach der Einführung der Anmeldepflicht nicht anmelden musste, um dort schreiben zu können. Das wurde dann auf Grund der teils unqualifizierten Angriffe gg Hajo und seiner Beschwerde eingestellt. Das könntest du eigentlich mitbekommen haben. Danach fing Hajo dann allmählich wieder an, hier zu antworten.
Mein angeblicher Konflikt mit Hajo ist eher einseitig und geht auf andere Foren und jemand, der sich damals in etlichen Foren sehr für ihn einsetzte und verteidigen zu müssen glaubte, zurück. Und es ist ebenso ein Irrtum, dass HWH die KritikPktt bzgl Hajo nicht kennen würde, denn er hatte das indirekt schon mal angesprochen, indem er IgnorierVermerke unter Beiträgen ablehnte. Seitdem macht Hajo das hier nicht mehr. Ansonsten ist Hajo hier ein Aktivist der 1.Stunde (mit 10Tsden von Beiträgen seit 1999 an der Spitze der Beitragsliste), der sich mit Hilfe des Forums vom blutigen Xl- und VBA-Anfänger bis zum zeitweiligen µS-MVP entwickelt hat. Aber das war schon vor unserem hiesigen Start. Und immerhin hatte er sich auch an kompliziertere Themen herangewagt (an denen andere gescheitert waren), auch wenn er nicht immer die optimale Lösung gefunden hatte. Und HWH dürfte ihn auch persönlich kennen gelernt haben, was nicht zu unterschätzen ist!
Und das, was Bernd gemacht hat, war sicher den TrollAngriffen von damals vglbar und weder sarkastisch noch ironisch, folglich für HWH nicht tolerierbar!
Gruß, Luc :-?

Sub LeerWeg() Application.ScreenUpdating = False Dim z As Long Dim lRow As Long Dim WsTabelle As Worksheet For Each WsTabelle In Worksheets lRow = WsTabelle.UsedRange.Rows.Count For z = 1 To lRow If WsTabelle.Cells(z, 1).Value = "" Then WsTabelle.Cells(z, 1).EntireRow.Hidden _ = Not WsTabelle.Cells(z, 1).EntireRow.Hidden Next z Next WsTabelle Application.ScreenUpdating = True End Sub

Sub Makro2() On Error GoTo hell Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In Worksheets ws.Columns("J:J").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = Not ws.Columns("J: _ J").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden Next ws hell: If Err.Number = 1004 Then Resume Next 'keine Zellen gefunden Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread