Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1076to1080
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
Inhaltsverzeichnis

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

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

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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige