Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur ausgeblendete Zellen des Bereichs löschen

Forumthread: Nur ausgeblendete Zellen des Bereichs löschen

Nur ausgeblendete Zellen des Bereichs löschen
18.12.2013 11:39:36
Tobi
Hey ich hab da nochmal ne Frage,...
ich habe über den Makrorekorder aufenommen, dass bestimmte Zellen durch ein Formularsteuerelement gelöscht werden.
Kann ich hier in den Code einbauen, dass nur Zellen die zum derzeitigen Zeitpunkt Ausgeblendet sind gelöscht werden (es sind immer unterschiedlich viele Zeilen Ein-/ Ausgeblendet)
Sub Clear()                            ' Clear Makro
Range("F18:CW19,F21:CW24,F26:CW26,F28:CW28,F30:CW30,F32:CW34,F36:CW36").Select
Range("F36").Activate
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 6
ActiveWindow.SmallScroll Down:=-15
Selection.ClearContents
Range("C16").Select
End Sub
Danke! Gruß Tobi

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur ausgeblendete Zellen des Bereichs löschen
18.12.2013 16:51:53
Tobi
Hallo,
es muss natürlich heißen, "immer unterschiedlich viele Spalten Ein-/ Ausgeblendet"
Vielleicht kann mir ja jemand helfen =)
Gruß Tobi

Bitte um Hilfe...
19.12.2013 07:56:48
Tobi
Guten Morgen,
hat jemand eine Idee/ Lösungsvorschlag für mich?
Wäre echt dankbar!
LG

AW: Nur ausgeblendete Zellen des Bereichs löschen
19.12.2013 08:21:42
bst
Morgen,
versuche das mal so.
cu, Bernd
-- 
Option Explicit
Sub Clear()
Dim rngCell As Range
For Each rngCell In Range("F18:CW19,F21:CW24,F26:CW26,F28:CW28,F30:CW30,F32:CW34,F36:CW36")
If rngCell.EntireRow.Hidden Or rngCell.EntireColumn.Hidden Then rngCell.ClearContents
Next
End Sub

Anzeige
AW: Nur ausgeblendete Zellen des Bereichs löschen
19.12.2013 08:55:44
Tobi
Hey Bernd,
funktioniert leider nicht!
Wenn ich dein Code in mein Modul einfüge, dann springt das ganze in den Code, in dem ich auf Basis einer Berechnung die Spalten ein-/ ausblenden lasse. Dadurch ergibt sich irgendwie eine Dauerschleife.
Ich kenn mich halt nicht aus und kopier mir nur Codes aus dem Forum zusammen.
Reicht es, wenn ich dein Code komplett in das Modul kopiere oder muss ich auch etwas auf dem Tabellenblatt schreiben, wo das Steuerelemt sitzt?
Entschuldig bitte mein Nichtwissen! =)
Gruß TOBI

Anzeige
AW: Nur ausgeblendete Zellen des Bereichs löschen
19.12.2013 09:21:43
bst
Hi,
wo machst Du das? In einem Change-Ereignis?
Dann schalte mal temporär die Ereignisse ab. Entweder im Ereignis-Code oder hier.
Falls das nicht funktioniert zeige mal Deinen (gesamten) Code her.
cu, Bernd
-- 
Option Explicit
Sub Clear()
Dim rngCell As Range
Application.EnableEvents = False
For Each rngCell In Range("F18:CW19,F21:CW24,F26:CW26,F28:CW28,F30:CW30,F32:CW34,F36:CW36")
If rngCell.EntireRow.Hidden Or rngCell.EntireColumn.Hidden Then rngCell.ClearContents
Next
Application.EnableEvents = True
End Sub

Anzeige
Funktioniert, vielen Dank!
19.12.2013 09:39:15
Tobi
Vielen Dank Bernd,
jetzt funktioniert es =)
Den Code der die Spalten aus-/ einblendet, mach ich über "Worksheet_Calculate()"
Und dein Code habe ich einfach in das Modul eingefügt, das der Makrorekorder automatisch erstellt. Dieses Makro habe ich einer Schaltfläche zugewiesen! (Was da was genau ist, wie gesagt hab ich nicht viel Schimmer!)
Vielen herzlichen Dank!
LG Tobi!

Anzeige
AW: Funktioniert, vielen Dank!
19.12.2013 11:23:38
bst
Hallo Tobi,
bitteschön, gerne.
cu, Bernd
;

Forumthreads zu verwandten Themen

Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Anzeige
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Währungszeichen aus Zelle holen
joerg

Hallo,
ich hab hier eine Liste mit Abrechnungen, in dieser Liste kommt gelegentlich eine Fremdwährung vor, also CHF, GBP, SEK, DKK, ...
Ich würde nun gern oben in der Liste ein Feld machen, in dem man dieses Währungskennzeichen eingeben kann, dann sollen die Werte in der Spalte, in die...
29.07.2009 09:54:29
Thread-ID: 1092130
10 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 Beiträge
Zahlen aus Textfeld ( 1, 2, 5) auslesen
Ingo

Hallo,
In einem Textfeld werden Zeilennummern eingegeben die durch
Komma oder Semikolon getrennt werdenn z.B. ("1, 4, 7").
Jetzt möchte ich jeweils die Zeile 1, 4, 7 makieren und diesen dann kopieren.
Wie könnte das gehen?
24.11.2009 18:57:37
Thread-ID: 1119793
9 Beiträge
Zählen bzw. Summe aus Text und/oder Zahlen
Detlev

Hallo Community
Bin ein Frischling hier und bitte auch gleich um Doppelhilfe.
Ich brauche zwei Formeln, um aus zwei bzw. drei unterschiedlichen Bedingungen ein Ergebnis zu erhalten.
zur 1 Formel:
Ich benötige die Anzahl von "XYZ" in Spalte C, nur wenn in Spalte A eine "1" steht...
21.01.2010 00:33:24
Thread-ID: 1131577
6 Beiträge
Limit von Zeichen in Zellen
Volker Croll
Hallo Karl-Heinz,in einer Zelle(!) koennen bis zu 32.000 Zeichen stehen.Du scheinst aber ein Problem mit dem Kopieren eines ganzen Blattes zu haben. Was genau klappt denn nicht?Gruss Volker
16.04.2002 11:43:44
Thread-ID: 113666
4 Beiträge
Anzeige
Ersetzen von Zeichen in Zellen in einer Spalte
Zeichen

hallo excel-vba-ler,
kann mir bitte jemand helfen:
ich habe einen bereich einer spalte, in der sich daten befinden, die mit ; getrennt sind. vor jedem ; und am beginn des zelleninhalts sollen nun zeichen stehen. diese sind immer dieselben, nämlich DI, DA und S
wie kann ich das lösen...
01.03.2010 10:43:21
Thread-ID: 1142303
11 Beiträge
Zeichenfolgen aus Zellen suchen und übertragen
Sven

Hallo Leute,
ich mal wieder... :-P
Suche eine Lösung, wie Verantwortliche aus einem Tabellenblatt in ein Anderes Kopiert weren, indem die Zeichenfolgen der Themen verglichen werden....
In meiner Datei gibt es ein Tabellenblatt "Eingabe Agenda", eines "Eingabe Ansprechpartner" (Pro...
22.03.2010 17:15:03
Thread-ID: 1147574
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige