Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1264to1268
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA; Nur Einträge mit Ziffern anzeigen

VBA; Nur Einträge mit Ziffern anzeigen
Franz
Guten Tag,
möchte gerne in einer markierten Spalte über VBA alle
Einträge, welche Ziffer(n) im Inhalt haben in gelb
hinterlegt haben. Aber wie?
Gruß

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA; Nur Einträge mit Ziffern anzeigen
15.06.2012 13:28:22
Bertram
Hallo Franz,
z.B. so:
Sub Färben() Dim Zelle As Range Dim i As Integer For Each Zelle In Selection For i = 1 To Len(Zelle.Value) If IsNumeric(Mid(Zelle.Value, i, 1)) Then Zelle.Interior.ColorIndex = 6 Exit For Else Zelle.Interior.ColorIndex = xlNone End If Next i Next Zelle End Sub Gruß
Bertram
AW: VBA; Nur Einträge mit Ziffern anzeigen
15.06.2012 13:33:56
Kawensmann
Hallo,
oder so: 
Sub ZahlenMarkieren()
Dim r As Range
Set r = Selection.SpecialCells(xlCellTypeConstants, 1)
r.Interior.ColorIndex = 6
End Sub
Gruß
Kawensmann
Habe nicht richtig gelesen ...
15.06.2012 13:35:52
Kawensmann
... meine Lösung funktioniert natürlich nur mit Zahlen ohne Text als Inhalt ...
Anzeige
AW: VBA; Nur Einträge mit Ziffern anzeigen
15.06.2012 13:38:57
Bertram
Hallo Kawensmann,
das funzt aber nur, wenn NUR Zahlen vorkommen. Sind Text und Zahlen gemischt geht's nicht.
Gruß
Bertram
.Pattern = "\d"
15.06.2012 13:33:33
ransi
HAllo
Wenn du diesen Code in ein Modul einfügst:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Dim Regex As Object

Public Function machs(zelle) As Boolean
    If Regex Is Nothing Then Set Regex = CreateObject("VBScript.Regexp")
    With Regex
        .Pattern = "\d"
        machs = .test(zelle)
    End With
End Function


kannst du die Function =machs(Zelle) ganz einfach in der bedingten Formatierung nutzen.
Tabelle1

 C
11XNTUZ
2DRHDH
3NW2CJS
4NXTEG
5LMICD
6UQTYF

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
C11. / Formel ist =machs(C1)Abc


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Bau es dir mal nach.
ransi
Anzeige
AW: .Pattern = "\d"
18.06.2012 18:21:36
ransi
HAllo Franz
Der Code gehört in ein Modul.
Erst dann kennt dein Excel die neue Funktion.
Userbild
Der Aufruf in der bedingten Formatierung sieht bei dir auch irgendwie merkwürdig aus...
Versuch mal so:
Userbild
Tabelle1

 C
11XNTUZ
2DRHDH
3NW2CJS
4NXTEG
5LMICD
6UQTYF
7 

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
C11. / Formel ist =machs(C1)Abc


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: VBA; Nur Einträge mit Ziffern anzeigen
16.06.2012 20:14:08
Franz
Guten Abend,
vielen Dank Bertram, Kawensmann und Ransi.
Gruß
Franz

309 Forumthreads zu ähnlichen Themen

VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Anzeige
Letzten 3 geänderten Zeilen in einer Zelle anzeige
Tobias

Ich hab schon eine Funktion, die mir bei jeder änderunng in einer Zeile einen Datumsstempel in Spalte D schreibt.
Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann...
20.02.2009 08:56:00
Thread-ID: 1052332
14 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Anzeige
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Letzten 4 Ziffern raussuchen
Johannes

Hallo zusammen,
ich habe eine Liste die folgendermaßen aussieht:
HF CB6-250 AF - 71210/7V-1128
HF Andruck 71175/7 - 1050 2 x PE
HF CB6-350 AJ - THL - 71210/7V-1024
HF Andruck cb6/cb7 76205/9V-1308 o.Alu
HF CB2-750 AJ - 76240/9V-1052 - 9µ Alu
HF CB4-2000 AJ - 71320/9V...
07.10.2009 13:01:54
Thread-ID: 1107783
12 Beiträge
X.te Stelle einer mehrstelligen Zahl ermitteln
Harald

Hallo zusammen,
ich hoffe, dass jemand für mein folgendes Problem eine Lösung weiß.
Welche Funktion muss ich in einer Excelformel nehmen um eine bestimmte Stelle aus einer mehrstelligen Zahl auszulesen.
Beispiele:
123456 - Die 3. Zahl von rechts = Ergebnis = 4
1234567 - Die...
09.10.2009 22:32:24
Thread-ID: 1108683
2 Beiträge
Nur 50 Zeichen zulassen
marco

hallo,ich habe ein problem, hoffentlich kann mir jemand helfen:in einer userform-textbox möchte ich eine EURO-betrag in buchstaben einfügen. das ist nicht das problem, das klappt auch. es sollen aber nur 50 zeichen zugelassen werden. sollten aber mehr als 50 zeichen eingetragen werden, soll
...
10.04.2002 14:33:42
Thread-ID: 112104
2 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
8
4
13
11
6
14
2
11
1
1
14
3
2
5
2
8
2
4
2
9
16
5
2
7
3