Zelle mit Cells positionieren

Bild

Betrifft: Zelle mit Cells positionieren
von: Horst
Geschrieben am: 16.04.2005 13:41:25
Hallo,
Ich muss Zellen mit Cells positionieren
Die Koordinaten der Zelle berechne ich in einer Funktion
Bsp.
Adresse = FncNeueAdresse
Cells(Adresse).Select
Das Problem ist, dass die Function FncNeueAdresse einen String zurückgibt
somit wird z.B.
Cells("2,5").Select ausgeführt (was nicht funktioniert)
und nicht
Cells(2,5).Select (was funktioniert)
Es währe super, wenn mir jemand sagen könnte wie ich Adresse zurückgeben
muss damit es wie gewünscht klappt.
P.S. VBA = ausreichend gibt es leider nicht zur Auswahl
Vielen Dank im Voraus
Gruß Horst

Bild

Betrifft: AW: Zelle mit Cells positionieren
von: Jörg Gradert
Geschrieben am: 16.04.2005 14:43:11
Hallo Horst,
probier mal

Sub test()
Adresse = FncNeueAdresse
Dim a, b, c As Integer
a = Application.WorksheetFunction.Find(",", Adresse)
b = Left(Adresse, a - 1)
c = Right(Adresse, Len(Adresse) - a)
Cells(b, c).Select
End Sub

Gruß Jörg
Bild

Betrifft: AW: Zelle mit Cells positionieren
von: Nepumuk
Geschrieben am: 16.04.2005 16:49:50
Hallo Horst,
versuch's mal so:
Cells(CLng(Split(Adresse, ",")(0)), CLng(Split(Adresse, ",")(1))).Select
Gruß
Nepumuk
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zelle mit Cells positionieren"