Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Text in Zelle auf Inhalt Prüfen

Forumthread: VBA Text in Zelle auf Inhalt Prüfen

VBA Text in Zelle auf Inhalt Prüfen
20.06.2018 14:24:21
D2743
Hallo Zusammen habe folgende Problematik
In einer Text Spalte (M) müsste ich nach einem einzelnen Zeichen (*) Suchen [ Bsp. Abcd*V oder *abcfd ] und dann bei vorhanden sein die jeweilige Zelle(n) einfärben.
Ich wäre Dankbar für eure Hilfe
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Text in Zelle auf Inhalt Prüfen
20.06.2018 14:40:39
UweD
Hallo
bedingte Formatierung mit Formel.

Tabelle1
 M
1 
2sdsdsd
3dsdlsdsl*ksdks
4dsjdjs
5nvjvj*
6*sdjhgjhas
7ssd
8 
9 
10 
11 
12 
13 
die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt

Bedingte Formatierung Haupttabelle 1  
Wird angewendet auf   Nr. Bed.  Regeltyp  Operator   Formel1   Formel2   Format Schrift Füll-farbe   Unterstrichen   Schrift- farbe Muster   Muster-farbe Typ Bereich
$M$2:$M$1001.Bed.: Formel ist =ISTZAHL(FINDEN("*";M2))  255         2$M$2:$M$10
Bedingte Formatierung Haupttabelle 2 oberere/unterer Bereich    
Wird angewendet auf   Nr. Bed.  Format Zelle Anhalten Auswahl   Anzeige   Anzahl   Durchschnitt   Typ   Bereich
$M$2:$M$1001.Bed.   Falsch          2$M$2:$M$10
Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit


LG UweD
Anzeige
AW: VBA Text in Zelle auf Inhalt Prüfen
20.06.2018 14:52:31
D2743
Hallo Uwe schon mal Danke für deine schnelle Hilfe!
Geht das auch per Makro mit schleife durch den Zellbereich?
AW: VBA Text in Zelle auf Inhalt Prüfen
20.06.2018 15:17:40
UweD
Hallo nochmal
ja, so...
Sub Makro2()
    Dim TB, Sp As Integer, Zelle
    Set TB = Sheets("Tabelle1")
    Sp = 13 'Spalte M 
    
    With TB
        'Reset 
        .Columns(Sp).Interior.Pattern = xlNone
        
        If WorksheetFunction.CountIf(.Columns(Sp), "<>") > 0 Then
            For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 2) ' alle Zellen mit Text 
                If InStr(Zelle, "*") Then
                    Zelle.Interior.Color = 255 'rot 
                End If
            Next
        End If
    End With
End Sub

LG UweD
Anzeige
AW: VBA Text in Zelle auf Inhalt Prüfen
21.06.2018 07:42:27
D2743
Hallo Uwe Super nochmals Dankeschön!
Danke für die Rückmeldung owT
21.06.2018 07:51:48
UweD
;

Forumthreads zu verwandten Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Anzeige
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Anzeige
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Anzeige
Zelle auf zwei Bedingen prüfen
Claudia

Guten Tag,
ich habe folgendes Problem:
ich möchte mit einer Schleife den Inhalt von Zellen auf zwei Bedingungen prüfen.
Hier der Code:
Do While Sheets(b).Cells(iDatumRow, i) "Ich" Or "Du"
leider funktioniert er nicht, es klappt nur mit einer Bedingung, also ohne Or "Du"
...
16.06.2009 12:54:36
Thread-ID: 1081854
13 Beiträge
teste verschiedene Zellen auf den selben Inhalt
Tom

Hallo,
Ich habe verschiedene Zellen mit einem Datum versehen, welches sich täglich ändern kann.
Und..ich habe ein "Master-Datum" in einer Zelle stehen..
Ich möchte gern ein "Wahr" oder ein "Falsch" oder halt vergleichbares als Antwort
wenn:
Teste bestimmte Zellen auf deren D...
23.06.2009 12:19:20
Thread-ID: 1083751
8 Beiträge
Zelle auf mehrere werte aus tabelle überprüfen
Michael

hallo
für einen script müsste eine zelle a1 dahingehend überprüft werden, ob der dort eingegebene wert identisch ist mit werten, die in b1:b200 stehen. sollte der wert in a1 identisch sein mit einem der werte in b1:b200, wird dann eine if-anweisung ausgeführt.
wie lautet der code für di...
07.08.2009 13:18:50
Thread-ID: 1094283
3 Beiträge
Anzeige
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Mit Userform Zellen auf Inhalt pruefen
Jeron

Hallo sehr geehrte Excelfreunde,
ich bräuchte bitte eure Hilfe bei der Erstellung eines Codes für ein Userform.
Die Spalte H12:I17 auf Tabellenblatt "Jahresplanung" soll auf Inhalt überpüft werden.
Sobald eine Zelle keinen Inhalt aufweist, soll der Eingabewert von ComboBox1 eingetr...
14.09.2009 18:21:24
Thread-ID: 1102720
4 Beiträge
auf Zellinhalt überprüfen
Karsten

Hallo,
Ich möchte mittels Makro die aktive Zelle prüfen lassen ob Zellinhalt 00:00:00 vorhanden oder leer ist. Wenn Zellinhalt 00:00:00 vorhanden oder sie leer ist, dann soll Makro1 ausgeführt werden, wenn nicht dann Makro2.
Besten Dank für eure Hilfe.
Gruß
Karsten
23.09.2009 08:28:18
Thread-ID: 1104790
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA Text in Zelle auf Inhalt Prüfen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem du die Zellen untersuchen möchtest.

  2. Aktiviere den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (deinWorkbookName)".
    • Wähle "Einfügen" > "Modul".

  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub Makro2()
   Dim TB, Sp As Integer, Zelle
   Set TB = Sheets("Tabelle1")
   Sp = 13 'Spalte M 

   With TB
       'Reset
       .Columns(Sp).Interior.Pattern = xlNone

       If WorksheetFunction.CountIf(.Columns(Sp), "<>") > 0 Then
           For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 2) ' alle Zellen mit Text
               If InStr(Zelle, "*") Then
                   Zelle.Interior.Color = 255 'rot
               End If
           Next
       End If
   End With
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle "Makro2" aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "Method 'SpecialCells' of object 'Range' failed"

    • Lösung: Stelle sicher, dass es Zellen mit Text in der betreffenden Spalte gibt. Wenn nicht, wird dieser Fehler angezeigt.

  • Fehler: "Typen unverträglich"

    • Lösung: Überprüfe, ob der Code korrekt kopiert wurde und alle Variablen richtig deklariert sind.

  • Die Zellen färben sich nicht:

    • Stelle sicher, dass das Zeichen * tatsächlich in den Zellen vorhanden ist und dass du die richtige Spalte angibst.

Alternative Methoden

  1. Bedingte Formatierung:

    • Du kannst auch die bedingte Formatierung verwenden, um Zellen einzufärben, die ein bestimmtes Zeichen enthalten:
      • Gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel".
      • Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden" und gib die Formel =ISTZAHL(FINDEN("*", M2)) ein, wobei M2 die erste Zelle in der Spalte ist.

  2. Excel-Funktionen:

    • Verwende die Funktion =WENN(ISTZAHL(FINDEN("*", M2)), "Enthält *", "Keine *") um zu prüfen, ob die Zelle das Zeichen enthält.

Praktische Beispiele

Angenommen, du hast folgende Werte in Spalte M:

Zeile Inhalt
1 Abcd*V
2 Test
3 *abcfd
4 Beispiel
5 nvjvj*

Nach dem Ausführen des Makros werden die Zellen mit "AbcdV", "abcfd" und "nvjvj*" rot eingefärbt. Dies zeigt, wie du mit Excel VBA Zelle auf Inhalt prüfen kannst, um schnell Informationen zu visualisieren.

Tipps für Profis

  • Verwende Schleifen effizient: Bei großen Datenmengen kann der Einsatz von Application.ScreenUpdating = False zu einer schnelleren Ausführung des Makros führen.
  • Fehlerbehandlung: Füge On Error Resume Next hinzu, um den Code robuster gegen Fehler zu machen.
  • Verwende Named Ranges: Arbeite mit benannten Bereichen, um deine Formeln und VBA-Code übersichtlicher zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehrere Zeichen zu überprüfen? Du kannst die Bedingung in der If-Anweisung erweitern, um mehrere Zeichen zu überprüfen, z.B. If InStr(Zelle, "*") Or InStr(Zelle, "#") Then.

2. Funktioniert das auch in älteren Excel-Versionen? Ja, der gezeigte VBA-Code wird ab Excel 2007 unterstützt. Für ältere Versionen kann es geringfügige Anpassungen erfordern.

Beliebteste Forumthreads (12 Monate)

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