Wert in Box und Zelle ausgeben

[Mephisto50]

Hallo. Ich möchte die Excel Version mittels Makro auslesen und das Ergebnis per MsgBox ausgeben und in die Zelle A1 schreiben lassen. Aus den restlichen Ergebnissen wie Pfadüberprüfungen und so weiter stelle ich einen Text zusammen, der dann kopiert werden soll.

Dieses Makro habe ich bereits:

Sub Excel_Version()
'
' Excel_Version Makro
Select Case Left(Application.Version, 1)
Case 5
 MsgBox "Excel 5"
Case 7
 MsgBox "Excel 7/95"
Case 8
 MsgBox "Excel 97"
Case 9
 MsgBox "Excel 2000"
Case 1
Select Case Left(Application.Version, 2)
 Case 10
   MsgBox "Excel 2002"
 Case 11
   MsgBox "Excel 2003"
 Case 12
   MsgBox "Excel 2007"
 Case 14
   MsgBox "Excel 2010"
Case 15
   MsgBox "Excel 2013"
Case 16
   MsgBox "Excel 2016"
 Case Else
  MsgBox "Unbekannte Excel-Version!"

End Select

End Select
End Sub

[Käpt'n Blaubär]

Hallo,

https://www.clever-excel-forum.de/thread...#pid126854

... fehlt noch das in die Zelle schreiben, aber das wirst Du ja wohl hinkriegen, denke ich.

... übrigens:

 Case Else
  MsgBox "Unbekannte Excel-Version!"

End Select

End Select
End Sub

... das dürfte wohl ein Schluck zuviel sein, oder?
Wenn man die Zeilen vernünftig einrückt, dann lassen sich solche Fehler sehr leicht vermeiden.

[Werner.M]

Hallo,

und was genau ist jetzt deine Frage/Problem?

Gruß Werner

[Mephisto50]

Hallo... meine Kenntnisse lese ich mir gerade an...

Funktioniert alles schon super, aber ich bekomme ja nur die MsgBox... möchte aber gleichzeitig, das er die Version in eine Zelle schreibt... und genau das habe ich eben noch nicht gefunden...

[Mephisto50]

Dein Makro ist auch super, toll... Danke... nur wie bekomme ich gleichzeitig den Wert (zb Excel 2016) in eine Zelle geschrieben... seufz

[Werner.M]

Hallo,

so:

Code:

Sub Excel_Version()
'
' Excel_Version Makro
Select Case Left(Application.Version, 1)
   Case 5
       MsgBox "Excel 5"
       Range("A1") = "Excel 5"
   Case 7
       MsgBox "Excel 7/95"
       Range("A1") = "Excel 7/95"
   Case 8
       MsgBox "Excel 97"
       Range("A1") = "Excel 97"
   Case 9
       MsgBox "Excel 2000"
       Range("A1") = "Excel 2000"
End Select

Select Case Left(Application.Version, 2)
   Case 10
       MsgBox "Excel 2002"
       Range("A1") = "Excel 2002"
   Case 11
       MsgBox "Excel 2003"
       Range("A1") = "Excel 2003"
   Case 12
       MsgBox "Excel 2007"
       Range("A1") = "Excel 2007"
   Case 14
       MsgBox "Excel 2010"
       Range("A1") = "Excel 2010"
   Case 15
       MsgBox "Excel 2013"
       Range("A1") = "Excel 2013"
   Case 16
       MsgBox "Excel 2016"
       Range("A1") = "Excel 2016"
   Case Else
       MsgBox "Unbekannte Excel-Version!"
       Range("A1") = "Unbekannte Excel-Version"
End Select

End Sub

Und wenn es nicht das aktive Blatt ist wo das rein soll, dann jeweils noch das Tabellenblatt vor dem Range.


Gruß Werner

[Mephisto50]

Ganz herzlichen Dank... oh man, wenn man es so liest... Super

[Käpt'n Blaubär]

Hallo,

Na, dann schreibst Du eben noch eine Zeile dazu. Hier beispielsweise:

Private Sub Meldung10()
   MsgBox prompt:="Version 10.0 ('2002; XP)"
   Cells(1, 1) = "Version 10.0 ('2002; XP)"
'                31. Mai 2001          Excel 2002 (MS Office XP) 10.0   Windows  (Einführung Produktaktivierung)
'                                                                                (letzte Version für Windows 98 / ME / NT 4.0)
End Sub

[schauan]

Hallöchen,

Du kannst auch in den verschiedenen cases einen String bilden und diesen am Ende in eine Zelle schreiben.

Dim strgString$
Select Case Irgendwas
Case 1: strgString = "1 ist meins"
Case 2: strgString = "2 ist deins"
Case 3: strgString = "3 ist seins"
End Select
MsgBox strgString

Oder Du nimmst ein Array

Dim arrVersions
arrVersions = Array(, , , , , , , , , , , , , , , , 2016)
MsgBox "Excel " & arrVersions(Val(Application.Version))

musst natürlich die Zahlen noch an die richtige Stelle im Array zwischen die Kommas packen, ich hab's mal nur für die 16 gemacht = 2016.