Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl nicht versteckter Zeilen angeben

Anzahl nicht versteckter Zeilen angeben
02.10.2003 09:57:55
Martin
Hallo,

ein Makro von mir überprüft eine Spalten, ob doppelte Daten vorhanden sind. Sind welche vorhanden, werden sie ausgeblendet, ansonsten nicht (s.u.)

Nun würde ich gerne dieses Makro dahingehend erweitern, dass xl erkennt, ob Zeilen, in denen etwas steht nicht versteckt sind, und mir dann entsprechend eine Meldung gibt, z.B. die Anzahl nicht versteckter Zeilen. Meine Versuche das hinzubekommen scheiterten jedoch bisher. Erschwerend kommt hinzu, dass in Zeilen 1:4 immer etwas steht; das muss natürlich ausser Acht gelassen werden.

Hat jemand eine Idee bitte?

Gruss,
Martin


Sub HideDoubleData()
Application.ScreenUpdating = False
Sheets("LDs").Select
Range("A4").CurrentRegion.Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess
Range("E5").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveSheet.Range("A4").Select
'Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl nicht versteckter Zeilen angeben
02.10.2003 10:08:21
Martin
ok, das funktioniert aber nicht in Abhängigkeit davon, ob etwas in den Zellen steht oder nicht!?

Gruss,
Martin
Anzeige

300 Forumthreads zu ähnlichen Themen


Hallo zusammen,
in einigen VBA-Projekten wird "Format" nicht erkannt. Meldung: "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder Zuweisung einer Eigenschaft"
Öffne ich im gleichen VB-Editor eine neue Mappe/Projekt funktioniert es für die neue Mappe nicht aber für besagte alte...

Hallo Wissende,
wegen einer Anfrage hier (irgendwas mit Lottozahlen) habe ich mir
https://www.herber.de/bbs/user/55214.xls
heruntergeladen.
In Blatt1 steht Zeilenweise der nachstehende Code, den habe ich in den VB-Editor in einem Modul eingefügt.
Die Zeilen
Sub Lotto_...

Hallo meine Freunde,
ich habe noch eine Aufgabe. In meiner UF habe ich Textfelder, in die Preise eingetragen werden. Wie kann ich diese Textfelder in Zahlen formatieren?
Danke für Eure Hilfe
Gruss
Bernhard

Hallo Leuts,
ich möchte gern die spalten B, D und F als Text formatieren. Habe da aber irgendeinen fehler drin.
ActiveSheet.Columns("B:B,D:D,F:F").NumberFormat = "@"
Das Format ändert sich leider nicht in Text.
Grúß
Steffen

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...

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige