Inhalt einer makierten zelle in variable übernehmen

[sinikaeg]

Hallo
Ich hab folgendes Problem.

Ich habe in einer Tabelle in Spalte A 6 stellige nummern stehen.
Wenn ich nun eine Zelle davon makiere möchte ich das mein Makro diese Nummer in eine Variable speichert .
Das Makro starte ich mit einer Schaltfläche.


Wie bekomm ich das hin ?

[Kuwer]

Hallo,

z.B. so:

Sub Schaltflaeche_Klick()

  Dim DieVariable As Long

  With ActiveCell

    If IsNumeric(.Value) Then

      If Len(CStr(.Value)) = 6 Then

        DieVariable = .Value

        MsgBox DieVariable  'zum Testen

      End If

    End If

  End With

End Sub

Gruß Uwe