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