Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeilenbereiche zwischen zwei Tabellenblättern kopieren
 14.08.2015 19:13:09 VielzuBlutigerAnfäng
NotSolved
20.08.2015 12:48:07 Gast96990
NotSolved

Ansicht des Beitrags:
Von:
VielzuBlutigerAnfäng		 Datum:
14.08.2015 19:13:09		 Views:
2754		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zeilenbereiche zwischen zwei Tabellenblättern kopieren
 
Hallo, 
 
ich möchte einen Code haben, der mir aus dem nachstehenden Tabellenblatt A alle Zeilen kopiert, bei denen in Spalte 3 kein x steht. Es sollte aber nur der Spaltenbereich 1-109 in das Tabellenblatt Summary kopiert werden. Leider bekomme ich mit dem unten stehenden Code einen Laufzeitfehler 1004. Kann mir jemand von euch weiterhelfen? 
 
Viele Grüße 
VielzuBlutigerAnfänger
 
 
Sub Summary()
Dim i As Long, x As Long
 
Sheets("Summary").Select
 
x = 8
For i = 8 To 1000
If Sheets("A").Range(i, 3) <= x Then
    Sheets("A").Range(Cells(i, 1), Cells(i, 109)).Copy _
    Destination:=Sheets("Summary").Cells(x, 1)
    x = x + 1
End If
Next i
 
End Sub
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeilenbereiche zwischen zwei Tabellenblättern kopieren
 14.08.2015 19:13:09 VielzuBlutigerAnfäng
NotSolved
20.08.2015 12:48:07 Gast96990
NotSolved