Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

"x"e zählen

"x"e zählen
09.07.2003 16:26:58
uwe
hatte vorhin schon gefragt, aber um oben zu stehn...
will in einem bereich einen best. buchstaben (z.b. "x") zählen lassen. so sollen in einer zelle mit "cinemaxx" 2 "x"e gezählt werden.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
FAQ :-((
09.07.2003 18:58:01
th.heinrich
hallo Uwe,
befasse Dich mit der FAQ. ich finde Deine begruendung fuer einen neuen thread unverschaemt. leider hast Du trotzdem antworten erhalten.
ohne gruss thomas

AW: "x"e zählen
09.07.2003 16:40:35
Stephan
Hier eine Beispieldatei
https://www.herber.de/bbs/user/194.xls
Mit der Funktion Teil die Wörter im Bereich zerlegen und dann mit zählenwenn zählen

AW: "x"e zählen
09.07.2003 16:40:11
Stephan
Hier eine Beispieldatei
https://www.herber.de/bbs/user/194.xls
Mit der Funktion Text die Wörter im Bereich zerlegen und dann mit zählenwenn zählen

Anzeige
AW: "x"e zählen
09.07.2003 16:36:04
Nike
Hi,
bitte nicht "einfach um oben zu stehen" neue Threads anfangen.
Man schaut auch unten rein...
Sonst werden Leute Fragen antworten, ohne gewisse Vorkenntnisse
zu besitezn, die in Threads weiter unten bereits geklärt wurden...
Bye
Nike
P.S. Ansonsten mal den folgenden Code probieren

Sub CharCount()
Dim intStep As Integer
Dim strZelle As String
Dim strSuch As String
Dim intFind As Integer
If ActiveCell.Value = "" Then
MsgBox "Leere Zelle"
Exit Sub
End If
intStep = 0
strZelle = ActiveCell.Value
strSuch = InputBox("Suchzeichen eingeben", "Suchzeichen", "x")
If strSuch = "" Then
MsgBox "Leerer Suchbegriff"
Exit Sub
End If
Do Until InStr(1, strZelle, strSuch) = 0
intFind = intFind + 1
If InStr(1, strZelle, strSuch) = 0 Then
Exit Do
End If
strZelle = Right(strZelle, Len(strZelle) - InStr(1, strZelle, strSuch))
Loop
MsgBox intFind & " mal gefunden"
End Sub


Anzeige
OT @ Nike
09.07.2003 21:04:21
Boris
Hi Nike,
ich kann dich jetzt leider überhaupt nicht verstehen.
Du scheinst dir ja auch den Thread weiter unten angeschaut zu haben - und da hast du ja festgestellt, dass bereits 2 funktionierende Antworten vorhanden waren.
Da die Art der Anfrage und deren Beantwortung zudem mehr als unverschämt ist, wundere ich mich darüber, dass du doch nen ausgiebigen Code postest, wo du doch auch einen gewissen Verhaltensumgang pflegst...
Nix für ungut - aber solche Frager würd ich hier nicht unterstützen...
Grüße Boris

AW: OT @ Nike - P.S.:
09.07.2003 21:06:15
Boris
Hi Nike,
mit "Beantwortung" meine ich natürlich nicht deine Art der Antwort, sondern den Einzeiler, den Uwe in dem anderen Posting hingepfeffert hat.
Gruß Boris

Anzeige
AW: OT @ Nike - P.S.:
10.07.2003 08:47:06
Nike
Hi Boris,
stimmt.
Ich hab die Dinger leider nicht gelesen,
sonst hätt's da bestimmt kein Posting von mir gegeben...
So ein tollen Tonfall/ tolles Verhalten muß man ja nicht noch fördern...
Bye
Nike

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige