Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Wertauslesen | Herbers Excel-Forum


Betrifft: Wertauslesen von: Einzel
Geschrieben am: 04.03.2010 10:50:32

Hallo,

Ich habe in Zelle A1 diese Zahl stehen: 43972337833031000
Nun möchte ich aus dieser Zahl per VBA nur die Zahl 783303 ins Makro einlesen.

Ich sage mal so ähnlich:

Dim o as String
o = [A1] (nur 783303)
MsgBox o

hatt da jemand eine Idee zu?
MfG
Stephan

  

Betrifft: AW: Wertauslesen von: Uppe
Geschrieben am: 04.03.2010 10:55:36

Hallo Stephan,

woher soll Excel wissen welcher Wert gelesen werden soll?
Ist die Position immer gleich? Beginnt der Wert immer mit 78? Oder wonach soll gesucht werden?

Gruß Uppe


  

Betrifft: AW: Wertauslesen von: Reinhard
Geschrieben am: 04.03.2010 10:57:56

Hallo Stephan,

o = Mid(Range("A1"), 9, 6)

Gruß
Reinhard


  

Betrifft: AW: Wertauslesen von: Henrik
Geschrieben am: 04.03.2010 10:58:27

Hallo Stephan,
??? verstehe ich nicht.
Ist die Zahl immer die gleiche (783303) -> MsgBox "783303"
Oder möchtest du aus dem Wert in Zelle A1 (ab einer bestimmten Position, für eine definierte Länge) eine Zahl in einer MsgBox ausgeben?

sub test()
      Wert=[A1]
      abPosition=7
      Laenge=6
      WertPos=Mid(Wert,7,6)
      MsgBox WertPos
end sub

Henrik