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

Frage Entwicklung VB for Applications

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, 714 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( ...

Microsoft Office
Zahlen in Buchstaben automatisch umwandeln!
gelöst Frage von wingetMicrosoft Office8 Kommentare

Hallo zusammen, ich brauche für eine Datei (Zahlungsformular in Excel) in einer Zeile z.B. A1 die Zahlen und in ...

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 ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall9 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen8 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...