Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Active Celle kopieren

Active Celle kopieren
17.10.2006 16:08:36
Thomas
Hallo Leute,
möchte vom Blatt Spiele die active Celle (-1, und 5 cellen links ist beabsichtigt) copieren und im Blatt Bögen e1 einfügen, aber das haut so nicht hin, könnt Ihr mir bitte helfen und zeigen wie es richtig geht.
ActiveCell.Offset(-1, -5).Copy
Sheets("Bögen").Visible = True
Sheets("Bögen").Activate
Range("e1").selct
Gruß Thomas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Active Celle kopieren
17.10.2006 16:11:52
Rudi
Hallo,
ActiveCell.Offset(-1, -5).Copy sheets("Bögen").Range("E1")
Gruß
Rudi
bekomme Fehlermeldung
17.10.2006 16:41:24
Thomas
Hallo Rudi,
hier bleibt mein Macro hängen, Laufzeitfehler 1004, kann Teil einer verbundenen Zelle nicht ändern
ActiveCell.Offset(-1, -5).Copy Sheets("Bögen").Range("E1")
hier mein Code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("i2:i500")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With Range(RaZelle.Address, RaZelle.Offset(0, -8).Address)
'hier bleibt mein Macro hängen, Laufzeitfehler 1004, kann Teil einer verbundenen Zelle nicht ändern
ActiveCell.Offset(-1, -5).Copy Sheets("Bögen").Range("E1")
Select Case UCase(RaZelle.Value)
Case Is = 0
' rot
.Interior.ColorIndex = 3
Case Is >= 1
.Interior.ColorIndex = 3
End Select
End With
End If
Next RaZelle
Set RaBereich = Nothing
End Sub

Anzeige
RTFM.....
17.10.2006 17:19:03
EtoPHG
Hallo Thomas,
Die Fehlermeldung kann Teil einer verbundenen Zelle nicht ändern
dürfte wohl alles sagen, oder nicht ?
Gruss Hansueli
AW: RTFM.....
17.10.2006 17:27:28
Thomas
Hallo Hansueli,
weiß ja noch nichteinmal was ein "verbundenen Zelle" ist.
Gruß Thomas
Danke klappt jetzt
17.10.2006 17:39:42
Thomas
Danke

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige