Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zellen ignorieren

Leere Zellen ignorieren
02.06.2021 17:33:22
Florian
https://www.herber.de/bbs/user/146479.xlsx
Hallo, ich habe mir eine Excel Datei gemacht, in der bei Klick in die Zelle alle weiteren Zellen mit gleichem Inhalt mit markiert werden, bzw. die aktive Zelle generell immer farblich eingefärbt werden.
Jetzt habe ich das Problem, dass natürlich beim Klick in eine Leere Zelle das komplette Arbeitsblatt eingefärbt wird. Kann mir jemand helfen, wie ich den VBA Code entsprechend abändere, damit leere Zellen ignoriert werden und nicht mein gesamtes Arbeitsblatt eingefärbt wird?
bin am verzweifeln, vielen Dank :)

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zellen ignorieren
02.06.2021 17:44:02
Hajo_Zi
ich kann nur Deiune VBA Code nichts schreiben. Liegt es daran das bei mir eine XLSX Datei kein Makro hat?
GrußformelHomepage
AW: Leere Zellen ignorieren
02.06.2021 17:49:19
Florian
Oh ich glaube ich habe die falsche Datei ohne VBA Code hochgeladen.
Meine Code lautet aktuell
Option Explicit
Dim raBereich As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim raZelle As Range
Dim strAdresse As String
Dim loZelle As Long
If Not raBereich Is Nothing Then raBereich.Interior.ColorIndex = xlNone
Set raBereich = Nothing
Set raZelle = UsedRange.Find(Target, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
strAdresse = raZelle.Address
If raBereich Is Nothing Then Set raBereich = raZelle
Do
Set raBereich = Union(raBereich, raZelle)
Set raZelle = UsedRange.FindNext(raZelle)
Loop While Not raZelle Is Nothing And raZelle.Address  strAdresse
End If
If Not raBereich Is Nothing Then raBereich.Interior.ColorIndex = 4
End Sub

Anzeige
AW: Leere Zellen ignorieren
02.06.2021 18:21:27
Daniel
Hi
Würde ich so machen:
1. per Code im Selection- Change-Event einfach den Wert der Aktiven Zelle in eine Definierte Zelle schreiben:

Range("A1"). Value = ActiveCell.Value
2. für die Zellen eine bedingte Formatierung anlegen mit der Regel:

=und($A$1"";A1=$A$1)
Wobei $A$1 die definierte Zelle ist und A1 die aktive Zelle, wenn du die bedingte Formatierung einrichtet.
Großer Vorteil dabei ist,dass die Zellen dabei weiterhin Heine Farbe haben können, die durch fiese Aktion nicht verloren geht.
Gruß Daniele
Anzeige
AW: Leere Zellen ignorieren
07.06.2021 16:20:10
Florian
Verstehe leider nicht wie das genau gemeint ist, also wo ich was im Code verändern muss. Bin leider kein Excel Profi und habe mir den VBA Code auch nur zusammengegooglet aus verschiedenen Dingen und die entsprechend zusammengebaut zu dem was ich jetzt habe :/
Kannst du mir das im Code enstprechend ändern?

327 Forumthreads zu ähnlichen Themen

Gültigskeitsprüfung mit leerer Zelle
Franz

Guten Abend!
Habe 9 Spalten mit Dropdowns gefüllt. Wie bekomme ich den nachfolgenden Code (Quelle: Archiv) eleganter hin, dh. ohne for next Schleife und dadurch schneller. Der Datenbereich heistt "Printarea".
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i =...
14.09.2008 20:56:00
Thread-ID: 1009627
11 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

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...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Gültigkeitsliste ohne Zellenbereich
Reinhard

Hallo Wissende,
Sub Makro1() With Range("P2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="a;b;c" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput...
02.11.2008 16:48:00
Thread-ID: 1021179
4 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Ribbon-DropDown-Listenfeld variabel füllen?
Kasimir

Hallo an alle!
Ich habe da mal eine Frage bezüglich der Excel 2007 Ribbons.
Zum Verständnis, ich habe eine xls-Datei, in der ich beim Starten eine neue Symbolleiste erzeuge. Diese neue Symbolleiste hat u.a. ein msoControlComboBox, die ich über eine Schleife mit bestimmten Tabellenblattn...
17.01.2009 07:23:00
Thread-ID: 1040862
3 Beiträge
Zeile mit optisch leerer Zelle löschen
Werner

VBA-Level: befriedigend
Hallo Freunde,
eine Tabelle (Worksheet) hat mehrere Spalten, beginnend ab Spalte A. Spalte A enthält Stringwerte.
Einige der Zellen in Spalte A sind optisch leer.
Nun sollen alle diejenigen Zeilen, bei denen die Zellen in Spalte A optisch leer sind, gelös...
13.03.2009 11:21:32
Thread-ID: 1059795
10 Beiträge
Wert wird nicht angezeigt
Markus

Hallo,
habe folgendes Problem:
Ich lasse mir einen Wert per VBA ausrechnen und dann mit Range... im Tabellenblatt anzeigen.
Das Problem ist, dass der Wert nicht angezeigt wird.
Wenn ich denn Programmcode per Einzelschritt debugge, dann wird der Wert komischerweise angezeigt!
...
20.07.2009 11:00:55
Thread-ID: 1089939
6 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
1
15
3
2
3
2
9
5
2
3
7
2
5
11
3
5
2
5
2
2
6
7
1
2