Thema Datum  Von Nutzer Rating
Antwort
09.09.2016 09:07:28 Dhömas
NotSolved
09.09.2016 09:31:37 Andreas
*****
NotSolved
09.09.2016 09:36:13 Dhömas
NotSolved
09.09.2016 10:59:15 Gast47105
*****
NotSolved
09.09.2016 11:08:38 Dhömas
NotSolved
09.09.2016 11:41:31 Andreas
*****
NotSolved
09.09.2016 11:58:06 Dhömas
NotSolved
09.09.2016 11:47:57 Dhömas
NotSolved
09.09.2016 11:58:35 Gast91343
*****
NotSolved
09.09.2016 12:02:22 Dhömas
NotSolved
Rot Nur noch Sheet1 ansprechbar
09.09.2016 13:25:54 Andreas
*****
NotSolved
09.09.2016 13:51:33 Dhömas
NotSolved
09.09.2016 14:30:19 Crazy Tom
*****
NotSolved
09.09.2016 15:23:17 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Andreas
Datum:
09.09.2016 13:25:54
Views:
923
Rating: Antwort:
  Ja
Thema:
Nur noch Sheet1 ansprechbar

Hallo Thomas,

mit Schleife:

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Range_kopieren
 
Dim Array_Range As Variant
Dim i As Integer
 
For i = 1 To 10
 
  Array_Range = Worksheets(2).Range(Worksheets(2).Cells(i,1), Worksheets(2).Cells(i,2)).value
  Worksheets(3).Range(Worksheets(3).Cells(i,1), Worksheets(3).Cells(i,2)).value = Array_Range
 
next i
 
Erase Array_Range
 
End Sub

Stellt sich natürlich die Frage warum über eine For-Schleife wenn du den Bereich gleich definieren kannst und alles auf einmal kopieren kannst.
Ohne Schleife:

1
2
3
4
5
6
7
8
9
10
11
Sub Range_kopieren
 
Dim Array_Range As Variant
 
 
  Array_Range = Worksheets(2).Range(Worksheets(2).Cells(1,1), Worksheets(2).Cells(10,2)).value
  Worksheets(3).Range(Worksheets(3).Cells(1,1), Worksheets(3).Cells(10,2)).value = Array_Range
 
Erase Array_Range
 
End Sub

Ohne Schleife und ohne Array:
 

1
2
3
4
5
Sub Range_kopieren
 
Worksheets(3).Range(Worksheets(3).Cells(1,1), Worksheets(3).Cells(10,2)).value = Worksheets(2).Range(Worksheets(2).Cells(1,1), Worksheets(2).Cells(10,2)).value
 
End Sub

Funktioniert bei mir alles.
Ich hoffe bei wirds jetzt auch klappen.

Gruß
Andreas


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
09.09.2016 09:07:28 Dhömas
NotSolved
09.09.2016 09:31:37 Andreas
*****
NotSolved
09.09.2016 09:36:13 Dhömas
NotSolved
09.09.2016 10:59:15 Gast47105
*****
NotSolved
09.09.2016 11:08:38 Dhömas
NotSolved
09.09.2016 11:41:31 Andreas
*****
NotSolved
09.09.2016 11:58:06 Dhömas
NotSolved
09.09.2016 11:47:57 Dhömas
NotSolved
09.09.2016 11:58:35 Gast91343
*****
NotSolved
09.09.2016 12:02:22 Dhömas
NotSolved
Rot Nur noch Sheet1 ansprechbar
09.09.2016 13:25:54 Andreas
*****
NotSolved
09.09.2016 13:51:33 Dhömas
NotSolved
09.09.2016 14:30:19 Crazy Tom
*****
NotSolved
09.09.2016 15:23:17 Andreas
NotSolved