Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Groß-Kleinschreibung ignorieren

VBA - Groß-Kleinschreibung ignorieren
26.04.2007 16:17:00
Ingo
Hallo allerseits,
ich soll ein paar Tabellen auswerten, in denen leider die Eingaben
nach keinen festen Regeln vorgenommen wurden.
z.B. wird je nach pers. Vorliebe groß oder klein geschrieben.
Momentan frage ich immer beide Varianten ab...
.Cells(x + 2, y + 4) = "G" Or .Cells(x + 2, y + 4) = "g"
Geht das evtl. einfacher ?
(Ohne die Eingaben vorher zu vereinheitlichen ;-))
Danke und Gruß aus dem sonnigen Garten
Ingo

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Groß-Kleinschreibung ignorieren
26.04.2007 16:37:54
Matthias
Hi,
Beispiel für gasamte Spalte C !

Sub zaehlen()
Dim x, i
x = 0
For i = 1 To 65536
If Cells(i, 3) = LCase("G") Or Cells(i, 3) = UCase("g") Then x = x + 1
Next
MsgBox x
End Sub


Userbild
Gruß Matthias

AW: VBA - Groß-Kleinschreibung ignorieren
26.04.2007 17:01:19
Matthias
Hi,
If Cells(i, 3) = LCase("G") Or Cells(i, 3) = UCase("g") Then x = x + 1
war das ernst gemeint? ;-)
würde ich so machen:

UCase(.Cells(x + 2, y + 4)) = "G"


Gruß Matthias

Anzeige
AW: VBA - Groß-Kleinschreibung ignorieren
26.04.2007 17:59:00
Matthias
Ja war ernst gemeint ;-)
Hatte es vorher so:
If LCase(Cells(i, 3)) = Range("A1") Or UCase(Cells(i, 3)) = Range("A1") Then x = x + 1
So brauche ich nur den Wert in A1 schreiben. Habe dann Range durch "G" und "g" ersetzt.
Dauert zwar etwas länger aber es gibt keinen Fehler!
Setzt man nämlich bei meinem Beispiel
If UCase(Cells(i, 3)) = "G" Then x = x + 1 ein "g" ein,
gibt es einen falschen Wert zurück Ergebnis X=0
Das wollte ich von Anfang an vermeiden.
Aber im Grunde hast Du schon recht
Der Code If UCase(Cells(i, 3)) = "G" Then x = x + 1 ist kürzer und schneller ;-)
Gruß Matthias

Anzeige
AW: VBA - Groß-Kleinschreibung ignorieren
26.04.2007 22:27:09
Ingo
Perfekt, vielen Dank !
Dank natürlich auch dem Namensvetter
Ingo

verrutscht...
26.04.2007 22:28:54
Ingo
Perfekt fand ich jetzt UCase(.Cells(x + 2, y + 4)) = "G" ;-))

10 Forumthreads zu ähnlichen Themen

Färben, wenn größer oder kleiner
Jockel

Hallo
ich habe eine Spalte (H) mit Prozentangaben, ich habe sie momentan noch als Zahl formatiert
(zB 0,8 oder 0,33 oder 0,5.....)
Nun möchte ich die Werte färben, wenn sie zwischen bestimmten Angaben liegen:
If Cells(x, 13).Value > "0.01" And Cells(x, 13).Value < "0.20" T...
10.11.2010 14:18:09
Thread-ID: 1186096
3 Beiträge
Anzeige
VBA Editor problem mit Groß-/Kleinschreibung
Alex

Hallo zusammen,
ich versuche aktuell mit VBA und pocketXMLRPC ein anderes Programm anzusteuern und auszulesen.
Dies funktioniert auch soweit ganz gut, aber leider gibt es ein paar Probleme bei Methoden die Excel bzw. VBA bekannt sind, da bei diesen der erste Buchstabe automatisch groß g...
21.05.2015 13:13:42
Thread-ID: 1427121
2 Beiträge
Abfrage größerer oder kleinerer Wert in Spalte
Stark

Folgende Frage:
Kann man folgende Formel vereinfachen ohne Makro
=WENN(C14>C13;1;WENN(C15>C13;2;WENN(C16>C13;3;WENN(C17>C13;4;WENN(C18>C13;5; WENN(C19>C13;6; WENN(C20>C13;7;WENN(C21>C13;8;WENN(C22>C13;9;WENN(C23> C13; 10; WENN(C24>C13;11;W...
13.07.2015 20:15:46
Thread-ID: 1436164
13 Beiträge
Anzeige
Groß-Kleinschreibung in Combobox ignorieren
yogi

Hallo
Gibt es eine Möglichkeit, bei der Eingabe in eine Combobox Groß-Kleinschreibung zu ignorieren, z.B. dass eine Eingabe "haus" mit dem Listeintrag "Haus" übereinstimmt? Alles auf Gross- oder Kleinbuchstaben umzustellen, geht nciht.
Gruss
yogi
13.03.2019 16:20:51
Thread-ID: 1681098
2 Beiträge
Groß- und Kleinschreibung ignorieren
Dupon

Hallo Leute,
Hier ein kurzer Ausschnitt des Makros:
With obj_ziel
lng_zeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lng_zeile, 1) = obj_quelle.Range("D13")
Wie kann ich verhindern, dass die Groß- und Kleinschreibung in der Eingabe D13 keine Rolle spielt?
Funktio...
30.03.2020 11:35:19
Thread-ID: 1749216
6 Beiträge
"Kleiner oder größer als" -> zählen
Stefan

Hallo Profis
wünsche euch einen wunderschönen guten morgen.
Habe mal wieder ein Problem.
Ich möchte in einer Zeile mit 6 Spalten zählen wie oft dort Zahlenbereiche drin stehen.
Beispiel:
in der ersten Spalte stehen diese zahlen 3;6;12;18;19;43
Nun möchte ich zählen wie...
16.12.2020 11:25:16
Thread-ID: 1800000
5 Beiträge
Groß,- Kleinschreibung ignorieren
Fred

Hallo Excel Profis,
bei der Nutzung einer Original-Quelle mit meinen Datensätzen gibt es ein Problem mit der Groß,- Kleinschreibung beim Finden entsprechender DS.
Die Originalquelle ("Ergebnisse") beinhaltet z.B. MAINZ 05 , meine Darstellung in den Sheet ("Tabelle1") ist allerdings Main...
22.05.2021 10:41:35
Thread-ID: 1832340
5 Beiträge
Groß und Kleinschreibung ignorieren
Steffen
Moin moin zusammen,
kurze knappe Frage, für einige sicher ein Kinderspiel, ich stehe aber gerade auf dem Schlauch:
If TextBox1.Value = "wer bin ich?" Or TextBox1.Value = "Wer bin ich?" Or TextBox1.Value = "wer bin ich" Then UserForm1.TextBox2.Text = "Du bist " & Worksheets("Tabelle2").R...
20.09.2022 16:20:54
Thread-ID: 1899715
5 Beiträge

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
2
2
1
12
2
1
5
4
4
4