Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst In einer Textzeile (String) die Anzahl eines vorgekommenen Buchstaben zählen

Mitglied: windelterrorist

windelterrorist (Level 1) - Jetzt verbinden

29.01.2015, aktualisiert 11.12.2015, 734 Aufrufe, 5 Kommentare

Hallo!

Ich bin noch neu im Bereich VBA und bin mir deshalb noch etwas unsicher in dieser Programmiersprache.

Würde gerne von euch wissen, wie ich beispielsweise die Anzahl "e" in einer Textzeile zählen kann.


Grüsse Michael
Mitglied: colinardo
29.01.2015, aktualisiert um 11:57 Uhr
Hallo Michael,
z.B. so
01.
Dim intCount, strText, strBuchstabe,i 
02.
intCount = 0 
03.
strBuchstabe = "e"    ' case sensitive 
04.
strText = "Hallo windelterrorist" 
05.
For i = 1 To Len(strText) 
06.
	If Mid(strText,i,1) = strBuchstabe Then 
07.
		intCount = intCount + 1 
08.
	End If 
09.
Next 
10.
MsgBox "Der Buchstabe " & strBuchstabe & " wurde " & intCount & " mal gezählt."
Grüße Uwe
Bitte warten ..
Mitglied: windelterrorist
29.01.2015 um 11:47 Uhr
Danke viel mals für deine Antwort, Uwe.

Das hat soweit eigentlich prima funktioniert. Könnte man auch eine Zeile in eine InputBox eingeben und danach werden die Zeichen des eingegebenen Strings der InputBox gezählt? Wenn ja, wie würde es dann aussehen?

Wenn ich Option Explicit als erste Zeile verwende, dann kommt immer die Meldung: Fehler beim kompilieren, Variabel nicht definiert. Was mache ich falsch?
Habe auch nocheinen Sub übung1() mit End Sub hinzugefügt.
Bitte warten ..
Mitglied: colinardo
LÖSUNG 29.01.2015, aktualisiert 11.12.2015
Zitat von windelterrorist:
Das hat soweit eigentlich prima funktioniert. Könnte man auch eine Zeile in eine InputBox eingeben und danach werden die
Zeichen des eingegebenen Strings der InputBox gezählt? Wenn ja, wie würde es dann aussehen?
Klar:
01.
Option Explicit 
02.
Dim intCount, strText, strBuchstabe, i 
03.
strBuchstabe = "e"    ' case sensitive  
04.
strText = InputBox("Bitte geben Sie Ihren Text ein","Eingabe") 
05.
For i = 1 To Len(strText) 
06.
	If Mid(strText,i,1) = strBuchstabe Then 
07.
		intCount = intCount + 1 
08.
	End If 
09.
Next 
10.
MsgBox "Der Buchstabe " & strBuchstabe & " wurde " & intCount & " mal gezählt."
Wenn ich Option Explicit als erste Zeile verwende, dann kommt immer die Meldung: Fehler beim kompilieren, Variabel nicht
definiert. Was mache ich falsch?
das i war nicht deklariert, hatte ich vergessen
Option Explicit bedeutet ja das man alle verwendeten Variablen vorher mit DIM deklarieren muss. Ist das nicht der Fall wird ein Fehler ausgeworfen.

Grüße Uwe
Bitte warten ..
Mitglied: windelterrorist
29.01.2015 um 12:01 Uhr
Klasse es funktioniert danke viel mals für deine Mühe, Uwe!

Grüsse Michael
Bitte warten ..
Mitglied: miniversum
29.01.2015, aktualisiert um 12:46 Uhr
Hallo,

nur als Ergänzung eine etwas kürzere Variante:
01.
Option Explicit 
02.
Dim strText, strBuchstabe 
03.
strBuchstabe = "e"    ' case sensitive  
04.
strText = InputBox("Bitte geben Sie Ihren Text ein","Eingabe") 
05.
intCount = Len(strText) - Len(Replace(strText, strBuchstabe, "")) 
06.
MsgBox "Der Buchstabe " & strBuchstabe & " wurde " & intCount & " mal gezählt."
Gruß
...
Bitte warten ..
Ähnliche Inhalte
C und C++

Anzahl der Buchstaben in einem String Element Array C++

gelöst Frage von ProtectedC und C++3 Kommentare

Hallo, ich benötige Hilfe. Ich möchte gerne in den jeweiligen Elementen die Anzahl der Buchstaben zählen. Ich hatte an ...

Batch & Shell

Buchstaben in Zahlen umwandeln

gelöst Frage von KawoosheBatch & Shell8 Kommentare

Hallo, ich wollte mal fragen ob man Buchstaben (groß und klein schreibung egal) in ihre dazugehörige zahl umwandeln kann( ...

VB for Applications

Unterscheiden zwischen Zahlen und Buchstaben

gelöst Frage von Calim3roVB for Applications6 Kommentare

Hallo zusammen Ich habe eine Textdatei mit folgendem Inhalt: Salzburg 123456 1234567 Berlin 2345678 Hamburg 3456789 Wien 4567890 Koeln ...

PHP

Textfeld nur bestimmte Buchstaben und Zahlen zulassen

gelöst Frage von vServerPHP5 Kommentare

Hi, wie kann ich hier nur bestimmte Zeichen wie A-Z, a-z, 0-9 erlauben und keine Sonderzeichen wie - ( ...

Neue Wissensbeiträge
Router & Routing

Olle Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 2 StundenRouter & Routing

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 15 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 20 StundenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office5 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...