"Version" hochzählen nach jedem Speichern
28.11.2016 17:06:17
Michael
Hi,
zum Hochzählen kann man sich die Excel-Spaltenbuchstaben zunutze machen; angenommen, es geht um die Zelle A1, dann heißt das:
Sub naechsteSpalte()
Range("A1").Value = _
Split(Range(Range("A1").Value & "1").Offset(, 1). _
EntireColumn.Address(0, 0), ":")(0)
' von innen nach außen:
' Range("A1").Value & "1"
' ist eine gültige Zelladresse, bei "BG" dann eben "BG1"
' .Offset(, 1)
' ist die Zelle rechts daneben
' .EntireColumn
' ist die komplette Spalte
' .Address(0, 0)
' ist die Adresse der Spalte, wege (0,0) ohne "$"-Zeichen
' und zwar im Format "A:A", also "doppelt" mit ":" getrennt
' split("A:A",":")
' zerlegt "A:A" in ein "Array", mit dem Trennzeichen ":"
' und mit (0) greifst Du auf das erste Feld des Arrays zu.
End Sub
Das Makro rufst Du dann über ein Speichern/Öffnen-Event auf - oder integrierst es direkt; hier in "DieseArbeitsmappe":
Private Sub Workbook_Open()
Range("A1").Value = _
Split(Range(Range("A1").Value & "1").Offset(, 1). _
EntireColumn.Address(0, 0), ":")(0)
End Sub
Schöne Grüße,
Michael