Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA; Nur Einträge mit Ziffern anzeigen

Forumthread: 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ß
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten 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
Makro nur beim ersten Öffnen ausführen
gregor

Guten Morgen!
Kann mir vielleicht jemand bei einem Problem helfen - ich möchte nämlich ein makro nur
beim ersten Öffnen automatisch ausführen - danach nicht mehr!
Geht das irgendwie?
Danke!
27.11.2008 10:09:00
Thread-ID: 1028240
5 Beiträge
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
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
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
Anzeige
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
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
erstellen einer Zahlungsübersicht
Lehmann

Hallo,
befasse mich gerade zum ersten Mal mit Excel und versuche eine Tabelle mit entsprechender Zahlungsübersicht und verschiedenen Fälligkeiten zu erstellen.
Posten 1, 100€, Beginn am 1.1.2000 und alle 3 Monate fällig
Posten 2, 75€, Beginn am 1.8.2009 und monatlich fällig
Pos...
24.01.2010 18:57:15
Thread-ID: 1132508
15 Beiträge
Freistellen einer Zahl
Stefan

Hallo,
ich habe viele Zahlen, die nach der füpnften Stellen mit einem Minus weiter gehen, also z.B. 12467-r1/f6
Mit welcher Funktion kann ich die 5-stellige Zahl freistellen, also so dass ich im Ergebnis erhalte: 12467,
Danke und liebe Grüße
Stefan
15.07.2010 17:35:35
Thread-ID: 1167339
6 Beiträge
Tab. nur nach letzten 2 Zeichen sortieren
Charly

Hallo,
was muss im Code eingefügt werden damit die Tabellen nur nach den letzten 2 Zeichen sortiert werden?
Sub SortSheets() Dim w%, x%, y%, z% z = ThisWorkbook.Sheets("INFO").Index + 1 w = ThisWorkbook.Sheets.Count For x = z To w For y = x To w If Worksheets(y).Name Danke vorab.
C...
25.08.2010 00:13:10
Thread-ID: 1174058
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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