Laufzeitfehler 1004

Sub BereichMarkieren() 'Seite 248 unten Dim Bereich1 As Range Dim Bereich2 As Range Dim Bereich3 As Range Dim GesamtBereich As Range Sheets("Tabelle1").Activate Set Bereich1 = Range("A1:B12") Set Bereich2 = Range("B15:C16") Set Bereich3 = Range("C17:D18") Set GesamtBereich = Union(Bereich1, Bereich2, Bereich3) GesamtBereich.Select MsgBox "Sie haben die Bereiche " & GesamtBereich.Address & " markiert!" & vbInformation Set Bereich1 = Nothing Set Bereich2 = Nothing Set Bereich3 = Nothing Set GesamtBereich = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de

Option Explicit
Sub BereichMarkieren() 'Seite 248 unten
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Bereich3 As Range
Dim GesamtBereich As Range
With Sheets("Tabelle1")
Set Bereich1 = .Range("A1:B12")
Set Bereich2 = .Range("B15:C16")
Set Bereich3 = .Range("C17:D18")
Set GesamtBereich = Union(Bereich1, Bereich2, Bereich3)
GesamtBereich.Select
MsgBox "Sie haben die Bereiche " & GesamtBereich.Address & " markiert!" & vbInformation
End With
Set Bereich1 = Nothing
Set Bereich2 = Nothing
Set Bereich3 = Nothing
Set GesamtBereich = Nothing
End Sub

Option Explicit Sub BereichMarkieren() 'Seite 248 unten Dim Bereich1 As Range Dim Bereich2 As Range Dim Bereich3 As Range Dim GesamtBereich As Range With Sheets("Tabelle1") Set Bereich1 = .Range("A1:B12") Set Bereich2 = .Range("B15:C16") Set Bereich3 = .Range("C17:D18") Set GesamtBereich = Union(Bereich1, Bereich2, Bereich3) .Activate GesamtBereich.Select MsgBox "Sie haben die Bereiche " & GesamtBereich.Address & " markiert!" & vbInformation End With Set Bereich1 = Nothing Set Bereich2 = Nothing Set Bereich3 = Nothing Set GesamtBereich = Nothing End Sub

Hi
gib da verschiedenen Möglichkeiten:
a) der Code befindet sich in einem Tabellenblattmodul, aber nicht im Modul der Tabelle1
liegt der Code in einem Tabellenblattmodul beziehen sich Zellbezüge wie Range und Cells immer auf das Tabellenblatt des Moduls und nicht auf das gerade aktiven Tabellenblatt.
Du würdest dann versuchen, Zellen auf einem nicht aktiven Tabellenblatt zu selektieren, weil sich deine Rangees immer noch auf das nicht aktive Modultabellenblatt beziehen und nicht auf Tabelle1.
die Lösung wäre hier, vor den Ranges immer das Tabellenblatt mit anzugeben:
Set Bereich1 = Sheets("Tabelle1").Range("A1:B12")
b) du hast das Tabellenblatt geschützt und dabei verboten dass gesperrte Zellen ausgewählt werden dürfen. Dein Zellbereich enthält aber solche "verbotenen" Zellen. Dann muss der Fehler kommen, weil ein Makro auch nur das tun darf, was der normale Anwender auch darf.
In diesem Fall müsstest du den Schutz aufheben.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread