Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ersten Grossbuchstaben suchen

Ersten Grossbuchstaben suchen
ludicla
Hallo Profis,
aus dem Netz hab ich eine Liste mit solchen Datensätzen:
"bayerische rieswasserversorgungBayerische Rieswasserversorgung"
"bad soden-salmuenster stadtwerke/wasserversorgungBad Soden-Salmünster Stadtwerke/Wasserversorgung"
Leider wiederholt sich in einer Spalte der String.
Wie bringe ich bis zum ersten Grossbuchstaben die Zeichen Weg ?
hab schon die Recherche versucht aber ich finde nicht das passende.
Gruss Ludicla.
Anzeige
AW: Ersten Grossbuchstaben suchen
13.10.2010 14:16:22
Martin
Hallo,
na der Text steht doch doppelt in der Zelle. Wie wäre es mit der Formel
=RECHTS(A1;LÄNGE(A1)/2)
...wobei der Text in meinem Beispiel in der Zelle A1 steht.
Viele Grüße
Martin
AW: Ersten Grossbuchstaben suchen
13.10.2010 14:17:26
Dieter
Hallo Ludicia,
Du kannst das mit der folgenden Funktion machen:
Function ErsterGrossbuchstabe(Zeichenkette As String) As Integer
Dim zeichen As String
Dim x As Integer
Dim laenge As Integer
laenge = Len(Zeichenkette)
For x = 1 To laenge
zeichen = Mid(Zeichenkette, x, x)
Select Case zeichen
Case "A" To "Z"
ErsterGrossbuchstabe = x
Exit For
Case "Ä", "Ö", "Ü"
ErsterGrossbuchstabe = x
Exit For
End Select
Next
End Function
Diese Funktion über Alt+F11 in den VBA-Bereich kopieren und dann als benutzerdefinierte Funktion aufrufen. Diese Funktion gibt die Position des ersten Großbuchstabens zurück.
Gruß
Dieter
Anzeige
AW: Ersten Grossbuchstaben suchen
13.10.2010 14:44:36
Dieter
Sorry Ludicia,
habe da noch einen Tippfehler in der Funktion:
nicht Mid(zeichenkette,x,x) sondern Mid(zeichenkette,x,1).
Gruß
Dieter
AW: Ersten Grossbuchstaben suchen
13.10.2010 14:17:26
Rudi
Hallo,
Matrixformel:
{=TEIL(A2;VERGLEICH(1;(CODE(TEIL(A2;ZEILE($1:$200);1))>64)*(CODE(TEIL(A2;ZEILE($1:$200);1)) Gruß
Rudi
AW: Ersten Grossbuchstaben suchen
13.10.2010 14:17:59
Oberschlumpf
Hi
Versuch es mit diesem Code:
Sub sb1stUC()
Dim liRow As Integer, liChar As Integer
For liRow = keineAhnung To keineAhnung
For liChar = 1 To Len(Range("keineAhnung" & liRow).Value)
If Asc(Mid(Range("keineAhnung" & liRow).Value, liChar, 1)) >= 65 And _
Asc(Mid(Range("keineAhnung" & liRow).Value, liChar, 1)) 

für keineAhnung trägst du ein:
- die Zeile, in der die Liste beginnt
- die Zeile, in der die Liste endet
- die Spalte, in der sich die Liste befindet
denn all das hast du nicht angegeben in deiner Beschreibung - und ich sehe von hier nicht deine Exceldatei.
Hilfts denn?
Ciao
Thorsten
Anzeige
Text vor erstem Grossbuchstaben löschen
13.10.2010 14:34:12
NoNet
Hallo Ludicla,
probiere es mal mit folgender MATRIX-Funktion (in A1 steht der Text) :
=RECHTS(A1;VERGLEICH(2;1/(FINDEN(TEIL(A1;LÄNGE(A1)-ZEILE(INDIREKT("1:"&LÄNGE(A1)))+1;1);"ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"))))
Die Funktion bitte mit Strg+Shift+ENTER bestätigen !!
Gruß, NoNet
Anzeige
nur notwendig, wenn...
15.10.2010 19:46:01
FP
Hallo,
... der erste Großbuchstabe nicht genau in der Mitte steht:
=TEIL(A1;VERGLEICH(1;--(HÄUFIGKEIT(ZEILE($65:$90);CODE(TEIL(A1;SPALTE(1:1);1)&"Z"))>0);0);99)
Servus aus dem Salzkammergut
Franz
AW: Ersten Grossbuchstaben suchen
13.10.2010 14:50:37
Sascha

Sub GrossbuchstabenSuchen()
Dim i As Integer
Dim strAuswertung As String
Dim objZelle As Range
Dim bolPrüfung As Boolean
ActiveSheet.UsedRange.Select
For Each objZelle In ActiveSheet.UsedRange.Cells
bolPrüfung = False
strAuswertung = objZelle.Value
i = 1
Do Until i = Len(strAuswertung) + 1 Or Len(strAuswertung) = 0 Or bolPrüfung
If Asc(Mid(strAuswertung, i, 1)) > 64 And Asc(Mid(strAuswertung, i, 1)) 

Anzeige
AW: Ersten Grossbuchstaben suchen
13.10.2010 15:08:46
ludicla
hallo freundlichen Helfer,
Danke schön für eure Hilfe,
hab bereits geantwortet, aber scheinbar gibt es
Änderungen in den Forumsseiten.
Gruss Ludicla.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Ersten Großbuchstaben in Excel finden und die Position ermitteln


Schritt-für-Schritt-Anleitung

Um den ersten Großbuchstaben in einer Zelle zu finden und dessen Position zu ermitteln, kannst Du folgende Schritte befolgen:

  1. Öffne Excel und lade die Datei, die die Daten enthält.
  2. Füge eine neue Spalte neben deiner Datenliste hinzu, um die Ergebnisse anzuzeigen.
  3. Verwende die folgende Formel in der neuen Spalte (angenommen, deine Daten beginnen in Zelle A1):
    =FINDEN(TEIL(A1;VERGLEICH(1;--(HÄUFIGKEIT(ZEILE($65:$90);CODE(TEIL(A1;SPALTE(1:1);1)&"Z"))>0);0);1);A1)

    Diese Formel sucht nach dem ersten Großbuchstaben und gibt die Position zurück.

  4. Drücke Strg + Shift + Enter, um die Funktion als Matrixformel zu bestätigen.
  5. Ziehe die Formel nach unten, um sie auf alle anderen Zellen anzuwenden.

Häufige Fehler und Lösungen

  • Fehler: #WERT!

    • Lösung: Stelle sicher, dass die Formel korrekt eingegeben wurde und dass Du sie als Matrixformel bestätigst.
  • Die Position wird nicht richtig angezeigt.

    • Lösung: Überprüfe, ob die Daten in der richtigen Zelle stehen und dass Du die korrekten Zellreferenzen in der Formel verwendest.

Alternative Methoden

Wenn Du VBA nutzen möchtest, um den ersten Großbuchstaben zu finden, kannst Du eine benutzerdefinierte Funktion erstellen:

  1. Drücke Alt + F11, um den VBA-Editor zu öffnen.
  2. Füge den folgenden Code ein:
    Function ErsterGrossbuchstabe(Zeichenkette As String) As Integer
       Dim x As Integer
       For x = 1 To Len(Zeichenkette)
           If Asc(Mid(Zeichenkette, x, 1)) >= 65 And Asc(Mid(Zeichenkette, x, 1)) <= 90 Then
               ErsterGrossbuchstabe = x
               Exit Function
           End If
       Next x
       ErsterGrossbuchstabe = 0 ' Wenn kein Großbuchstabe gefunden wurde
    End Function
  3. Schließe den VBA-Editor und rufe die Funktion in einer Zelle auf, z.B. =ErsterGrossbuchstabe(A1).

Praktische Beispiele

Angenommen, Du hast folgende Datensätze in Spalte A:

  • bayerische rieswasserversorgungBayerische Rieswasserversorgung
  • bad soden-salmuenster stadtwerke/wasserversorgungBad Soden-Salmünster Stadtwerke/Wasserversorgung

Wenn Du die oben genannte Matrixformel auf diese Daten anwendest, erhältst Du die Position des ersten Großbuchstabens in jedem Datensatz.


Tipps für Profis

  • Wenn Du mit sehr großen Datenmengen arbeitest, kann die Matrixformel die Performance beeinträchtigen. In solchen Fällen kann VBA eine effizientere Lösung bieten.
  • Nutze die Funktion =GROSS(A1) in Kombination mit =FINDEN(), um alle Großbuchstaben in einer Zelle zu identifizieren.
  • Wenn Du regelmäßig mit solchen Daten arbeitest, könnte es hilfreich sein, eine benutzerdefinierte Funktion in VBA zu erstellen, um die Suche nach Großbuchstaben zu automatisieren.

FAQ: Häufige Fragen

1. Wo finde ich Hilfe, wenn ich Probleme mit Excel habe? Du kannst in Foren wie diesem nach Lösungen suchen oder die Excel-Hilfe durchsehen.

2. Was ist der Unterschied zwischen der FINDEN- und der SUCHEN-Funktion? Die FINDEN-Funktion ist case-sensitive, während die SUCHEN-Funktion nicht zwischen Groß- und Kleinschreibung unterscheidet.

3. Wie kann ich den ersten Buchstaben eines Strings in Word über zwei Zeilen groß schreiben? In Word kannst Du die Funktion „Erster Buchstabe groß“ in den Absatzformatierungen verwenden oder die Tastenkombination Shift + F3 nutzen, um zwischen Groß- und Kleinschreibung zu wechseln.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige