SoftMaker.de

Tach Allerseits,

nach Handbuch liefert der Befehl "pm.ActiveSheet.Selection.Row", bzw. "pm.ActiveSheet.Selection.Column" die Zeilen-, bzw. Spaltenzahl einer aktivierten Zelle.

Mit "pm.ActiveSheet.Range("$A:$IV").Item(Z, S).Value" kann man etwas in die Zelle (Z,S) hineinschreiben und dann z.B. 5 Spalten nach rechts und 7 Zeilen nach unten wandern.

Jetzt mein Problem: "Welcher Befehl liefert mir in diesem Moment den Namen(!) (in der Form z.B. "B12" oder "C23") der aktivierten Zelle?"

MfG
fitti

Hallo,

diese Funktion gibt es in BasicMaker leider nicht. Sie könnten Sie allerdings selbst nachprogrammieren. Schauen Sie hierzu bitte einmal in die integrierte Hilfe unter dem Stichwort "Funktionen" (Unterprogramme und Funktionen) nach.

_________________
Alexander Mühl
SoftMaker Software GmbH

Hallo Alexander,

das Nachprogrammieren ist nicht schlimm. Ich hatte auch keine fertige Lösung erwartet - lediglich vielleicht einen Tipp oder einen Hinweis, bei welchem BasicMaker-Befehl ich am besten mit meiner Suche beginne oder - vor allem - mit welcher Idee ich zum Ziel komme.

Vielen Dank nochmals!

MfG
fitti

Trickreich ist ja nur die Umrechnung der Spalten in Buchstaben; die Zeilen sind trivial.

Das funktioniert etwa so...

_________________
Martin Kotulla
SoftMaker Software GmbH

Hallo Martin,

dein Programm ist prima, ich werde den Code übernehmen - wenn ich darf. Nach Alexanders Hinweis war mein Ehrgeiz natürlich geweckt, und ich habe folgende Lösung zu bieten (siehe unten).

Deine Lösung liefert mir den Zellennamen, wenn ich Zeilen- und Spaltennummer vorgebe (kann ich gut gebrauchen); meine Lösung liefert den Zellennamen des aktuellen Standortes im Tabellenblatt. Ich denke beide Funktionen ergänzen sich gut.

Meine Frage noch an den Profi: "Habe ich umständlich programmiert oder kann man den Stil gelten lassen?" Ich bin nämlich noch neu im Metier und möchte besser werden - BasicMaker find ich gut!
Darüberhinaus würde ich mir eine Foren-Ecke wünschen, in der die Lösungen für derartige Probleme zur Ansicht/zum Download bereitstehen. Man könnte viel lernen und müsste das Rad nicht immer wieder neu erfinden. Hätte ich deine Lösung früher gehabt, hätte ich eine Menge Zeit bei meinem Ausgangsproblem gespart.

So und hier ist meine Lösung:

'*******************************************************
Function AktSpalte() as Long
AktSpalte = pm.ActiveSheet.Selection.Column
End Function

Function AktZeile() as Long
AktZeile = pm.ActiveSheet.Selection.Row
End Function

Function HoleSpaltenName() as String
Dim a as Integer, b as Integer
Dim SpaltenNummer as Long
Dim erg as String

SpaltenNummer = AktSpalte
a = Int(SpaltenNummer / 26)
If SpaltenNummer Mod 26 = 0 Then
a = a - 1
End If
b = SpaltenNummer - a * 26
If a < 1 Then '***** Spalten 'A-Z'
erg = Chr(b + 64)'***** Spalten 'A-Z'
Else
erg = Chr(a + 64) & Chr(b + 64)'***** Spalten 'AA-IV'
End If
HoleSpaltenName = erg & Str(AktZeile)'***** Zeilennummer noch anhängen
End Function
'*******************************************************

MfG
fitti

Fanfare und Trommelwirbel. Respekt und Anerkennung für diesen Vorschlag.
[X] Dafür