Zelle auslesen Laufzeitfehler 6
04.12.2003 15:04:36
Marc
ich habe weiter unten das Thea schon einmal angesprochen, aber etwas ungeordnet. Ich habe
mir da selbst ein kleines Durcheinander verursacht, welches ich mal ordnen will.
Deshalb nun mal einen Schritt nach dem anderen.
Ich möchte in der Tabelle 2 den Inhalt einer Zelle auslesen. Wenn es eine Zahl ist
(wird eigentlich immer eine Zahl sein) soll der Wert ausgegeben werden (Dies habe
ich nur zur Kontrolle eingefügt) und in einer Variablen 'suchbegriff' gespeichert werden.
Bis zu der msgbox funktioniert es, dann kommt die Meldung 'Laufzeitfehler 6'. Kann es sein,
dass ich den falschen Variablentyp gewählt habe.
Würd mich freuen, wenn mir jemand helfen könnte.
Sub AuswertungÖffnen_Click()
Dim suchbegriff As Integer
Sheets("Tabelle1").Select
SendKeys "{F9}", True
'Die Zelle C8 in Tabelle 2 Auslesen
For Each cell In Range("C8:C8")
'Wenn eine Zahl in der Zelle steht
If IsNumeric(cell.Value) Then
'Den wert ausgeben
MsgBox cell.Value
'und in der Variablen 'suchbegriff' speichern
suchbegriff = cell.Value
End If
Next
End Sub