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

Letzte Hoffnung: eine Zelle auslesen!

Letzte Hoffnung: eine Zelle auslesen!
15.05.2004 14:36:02
JürgenP
Hallo Forum!
Obwohl ich diese Frage jetzt zum zweiten Mal poste, habe ich die Hoffnung noch nicht aufgegeben. Ich hätte das Problem schon letztes Wochenende lösen müssen.
Bitte: Irgendjemand muss sich doch erbarmen :'(
Ich möchte eine Zelle auslesen, die immer fast denselben Inhalt hat:
"Total Results 2810 Page 2 of 235 >" oder
"Total Results 2810 Page 2 of 2 >" oder
"Total Results 2810 Page 2 of 52 >"
usw.
Das einzige,was sich ändert, ist die Seitenzahl nach "of"
Jetzt will ich, dass mir das Makro diesen Zahlenwert nach "of" in einer Variable abspeichert.
Zum Beispiel: Seiten = 235 (oder eben Seiten = 12...)
Die Seitenzahl kann einstellig bis vierstellig sein.
Weis jemand eine geschickte Loesung?
Bitte helft mir, ich brauche die Antwort schnell. Danke.
Mit liebem Gruss,
Jürgen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Hoffnung: eine Zelle auslesen!
15.05.2004 14:52:30
Nepumuk
Hallo Jürgen,
wenn's nicht mehr ist,


Public Sub test()
    Dim intSeitenzahl As Integer
    intSeitenzahl = Mid(Cells(1, 1), InStr(1, Cells(1, 1), "of") + 2, InStr(1, Cells(1, 1), "<") - InStr(1, Cells(1, 1), "of") - 3)
    MsgBox CStr(intSeitenzahl)
End Sub


Gruß
Nepumuk
Anzeige
OT sorry, nicht aktualisiert o.T.
PeterW
AW: Letzte Hoffnung: eine Zelle auslesen!
PeterW
Hallo Jürgen,
beispielsweise könnte das so gehen, wenn dein Ausdruck in A1 steht:

Sub ZeichenfolgeFinden()
Dim str As String
str = Right(Range("A1"), Len(Range("A1")) - InStr(1, Range("A1"), "of") - 2)
MsgBox Val(str)
End Sub

Gruß
Peter

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige