Frage zum Range-Befehl
15.10.2004 07:44:37
Bruno
nachfolgender Code ist vorhanden:
Private Sub CommandButton1_Click()
If Range("A1") = "" Then
Range("A1").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("A1").Select
Selection.Interior.ColorIndex = xlNone
End If
Range("A1:A3").Select
Selection.Copy
Sheets("Tabelle2").Select
-> Range("A1").Select 'Dies wird angemekert!
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
d.h. Wenn in Zelle A1 nichts steht, dann hinterlege den Hintergrund dieser Zelle rot. Ansonsten bleibt er ohne Füllung. Dann kopiere die Zelle A1 bis A3 und füge sie in Tabellenblatt 2 ab Zelle A1 ein.
Problem: Bei Klick auf den Commando-Button erscheint die Fehlermeldung "Laufzeitfehler 1004" "Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden".
Was hat das zu sagen, bzw. was mache ich falsch? Gruß Bruno