Monatsname in Zahl umwandeln mittels VBA

[dertommy]

Hallo!

Ich möchte gerne mittels VBA einen Monatsnamen in eine Zahl umwandeln. Die Monatsnamen stehen immer in der 10. Zeile.
Leider schaffe ich es nur, den Monatsnamen in eine bestimmte Zelle zu schreiben, aber nicht die Zahl.

Hier mein  Code, wo ich in eine bestimmte Zelle den gewünschten Monat (in einer Zahl) hinschreibe:

Code:

Range("A3") = a_nx(10, t_col)

Ich hoffe, dass mir jemand helfen kann.

LG
Thomas

[RPP63]

Moin!
Geht es noch ungenauer?
Was steht als Wert im Array?

Gruß Ralf

[dertommy]

Dim t_col, t_row, u_row, v_row As Integer
Dim a_nx, b_nx As Variant

t_col = Target.Column
t_row = Target.Row
u_row = Target.Row - 1
v_row = Target.Row
a_nx = Tabelle4.Range("A1:M56")
b_nx = Tabelle4.Range("A1:S56")


Meinst du das?

in der Zeile 10 steht Jänner, Februar, März, April, usw..

[RPP63]

Bin nicht am Rechner. 
Du könntest einen Match über Application.GetCustomlistContents durchführen.
https://learn.microsoft.com/en-us/office...stcontents

[dertommy]

sorry, aber das hilft mir leider nicht weiter
meine VBA Kenntnisse sind nur beschränkt
dachte, dass es dafür einen einfachen VBA Code gibt, der den Monatsnamen einfach in eine Zahl konvertiert

[Case]

Hallo,  

Ralf meint das.

[EarlFred]

Code:

Dim t_col, t_row, u_row, v_row As Integer

Frage: Welchen Typ besitzt t_col?

[Kuwer]

Hallo Thomas,

Code:

Range("A3") = Month("1/" & a_nx(10, t_col))

Gruß Uwe

[dertommy]

Hallo Kuwer!

Danke für den Code, genauso habe ich mir das vorgestellt.

LG
Thomas

[d'r Bastler]

@ EarlFred: 

Frage: Welchen Typ besitzt t_col?

mangels Definition: variant, nur der letzte in der Zeile ist ein Integer