Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich kopieren

Bereich kopieren
17.09.2007 09:14:10
Torsten
Guten Morgen,
hier der Code
For j = 1 To Sheets.Count
Sheets("Makro").Select
Range("A65:A161").Copy
If Sheets(j).Name "Data" Or Sheets(j).Name "Makro" Then Sheets(j).Range("A8").Paste
Next j
warum geht dies nicht? es wird immer Sheets(j).Range("A8").Paste dies markeiert und die Meldung, dass das Objekt oder die Methode nicht unterstützt wird.
Kann mir jemand weiter helfen?
Bin für jede Hilfe dankbar.
gruß
Torsten

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

Betreff
Datum
Anwender
Anzeige
AW: Bereich kopieren
17.09.2007 09:18:00
Rudi
Hallo,
du hast einen Logikfehler. Ersetze OR durch AND.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Bereich kopieren
17.09.2007 09:21:31
Ramses
Hallo
lies dir mal deinen Code durch.
Du wählst in jedem Schleifendurchlauf das Sheet "Makro" aus, wie willst du dann in ein anderes Sheet kopieren.
Wenn schon, dann wenigstens so
Option Explicit

Sub tst()
    Dim j
    For j = 1 To Sheets.Count
        With Sheets(j)
            If .Name <> "Data" Or .Name <> "Makro" Then
                Sheets("Makro").Range("A65:A161").Copy Destination:=.Range("A8")
            End If
        End With
    Next j
End Sub

Ungetestet und keine Ahnung ob das funktioniert
Gruss Rainer

Anzeige
AW: Bereich kopieren: erfolgreich erledigt Danke!!
17.09.2007 09:48:57
Torsten
Hallo,
Danke für die schnellen Antworten!!
Beide zusammen haben mich auf die richtige Lösung gebracht :)
so Funktioniert es:

Sub test()
Dim j As Integer
For j = 1 To Sheets.Count
With Sheets(j)
If .Name  "Data" And .Name  "Makro" Then Sheets(j).Range("B8:K65536").Clear
If .Name  "Data" And .Name  "Makro" Then
Sheets("Makro").Range("A65:A218").Copy Destination:=.Range("A8")
End If
End With
Next j
End Sub


gruß
Torsten

AW: Bereich kopieren: erfolgreich erledigt Danke!!
17.09.2007 10:00:00
Rudi
Hallo,
warum stellst du die Bedingung 2x?

Sub test()
Dim j As Integer
For j = 1 To Sheets.Count
With Sheets(j)
If .Name  "Data" And .Name  "Makro" Then
.Range("B8:K65536").Clear
Sheets("Makro").Range("A65:A218").Copy Destination:=.Range("A8")
End If
End With
Next j
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Bereich kopieren: erfolgreich erledigt Danke!!
17.09.2007 10:35:00
Torsten
Hi,
gute Frage...
weiß grade selber nicht was ich mir dabei gedacht habe.
Aber Dankeschön!!
gruß

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige