Zellinhalt auslesen
24.02.2005 14:33:23
Waldi
Sub Kopieren_Tabelle1()
Dim ws As String
Dim zeile1 As Integer
Dim zeile2 As Integer
Dim spalte1 As Integer
Dim spalte2 As Integer
Dim wname As String
Sheets("Tabelle1").Select
Range("P103").Select
zeile1 = ActiveCell.Row
spalte1 = ActiveCell.Column
Cells(spalte1, zeile1).Activate
ActiveCell.Value = ws
Range("R103").Select
ws = ActiveCell.Value
End Sub
Im der Zelle P103 steht eine Formel, die einen Namen ausgibt. Dieser Name soll dann an die Variable (ws) übergeben werden, und dann anschließend in die Zelle R103 als wert eingesetzt werden.
Wenn ich das Makro laufen lasse, steht zwar bei activecell.value eine Name, aber wenn ich mir die variabel ws anschaue steht dort ""
und der Name wird auch nicht übernommen.
Was mache ich falsch ?
Anzeige