Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range mit Cells

Forumthread: Range mit Cells

Range mit Cells
02.06.2009 22:23:54
Johannes
Hallo,
hat mir jemand einen Tipp warum folgende Zeile nicht funktioniert?
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
For i = 1000 To 2 Step -1
If .Cells(i, 1).Value <> "" Then Range(Cells(2, 54), Cells(2, 72)).Copy
Range(Cells(i, 54), Cells(i, 72)).Paste
Next
If i > 1000 Then Exit Sub
End With
Application.ScreenUpdating = True
Range(Cells(i, 54), Cells(i, 72)).Paste Hier wird der Fehler angzeigt. Ich habe aber noch keinen Grund gefunden.
thx Joni
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Probier mal : Cells(i, 54).Paste _oT
02.06.2009 22:30:07
NoNet
_oT = "ohne Text"
AW: Range mit Cells
02.06.2009 22:34:29
Josef
Hallo Joni,
weil .Paste keine Methode des Range-Objektes ist, sondern des Worksheet-Objektes.
as du willst geht so.
Sub nn()
  Dim lngIndex As Long
  
  On Error GoTo ErrExit
  Application.ScreenUpdating = False
  
  With ActiveSheet
    For lngIndex = 1000 To 2 Step -1
      If .Cells(lngIndex, 1).Value <> "" Then Range(Cells(2, 54), Cells(2, 72)).Copy Range(Cells(lngIndex, 54), Cells(lngIndex, 72))
    Next
    'If lngIndex > 1000 Then Exit Sub <-- nonsense!
  End With
  
  ErrExit:
  Application.ScreenUpdating = True
End Sub

Gruß Sepp

Anzeige
AW: Range mit Cells
02.06.2009 22:35:37
Hans
Hallo Joni,
in dieser Form wird ein Argument verlangt, was gepastet werden soll, xlFormulas oder xlValues usw.
Ändere den Code wie folgt:

Sub Test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1000 To 2 Step -1
If Cells(i, 1).Value  "" Then Range(Cells(2, 54), Cells(2, 72)).Copy _
Range(Cells(i, 54), Cells(i, 72))
Next
Application.ScreenUpdating = True
End Sub


Gruss hans

Anzeige
AW: Range mit Cells
02.06.2009 22:54:30
Johannes
Hallo Hans,
das hat funktioniert, danke.
Gruß Joni
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige