Thema Datum  Von Nutzer Rating
Antwort
07.03.2011 14:34:49 Gast41755
NotSolved
08.03.2011 15:50:22 Severus
NotSolved
08.03.2011 16:27:21 Gast 41755
NotSolved
Blau Kopieren
 08.03.2011 17:10:07 Severus
NotSolved
10.03.2011 10:24:54 Gast 41755
NotSolved
10.03.2011 12:30:54 Severus
NotSolved
10.03.2011 15:04:29 Gast 41755
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
08.03.2011 17:10:07		 Views:
1010		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren

Ich gehe mal davon aus, daß Deine Arbeitsblätter "Datenx" und "Versuchy" heißen. Darauf basiert der Code:

Option Explicit

Sub kopieren()
Const strSOURCE As String = "Daten" 'hier ggf. anpassen. Wenn Blätter nur 1, 2, 3... heißen: Const strSOURCE As String = ""
Const strTARGET As String = "Versuch" 'hier ggf. anpassen.
Dim lngLaufZahl As Long
Dim wsSOURCE As Excel.Worksheet
Dim wsTARGET As Excel.Worksheet
On Error Resume Next
For lngLaufZahl = 1 To ThisWorkbook.Sheets.Count / 2 + 1
    Set wsSOURCE = ThisWorkbook.Sheets(strSOURCE & CStr(lngLaufZahl))
    Set wsTARGET = ThisWorkbook.Sheets(strTARGET & CStr(lngLaufZahl))
    If wsSOURCE Is Nothing Or wsTARGET Is Nothing Then
        Err.Clear
        GoTo Fehler
    Else
        wsSOURCE.Range("$A$1:$F$500").Copy wsTARGET.Range("$A$1")
        wsTARGET.Range("$A$1").Select
        If Not wsSOURCE Is Nothing Then Set wsSOURCE = Nothing
        If Not wsTARGET Is Nothing Then Set wsTARGET = Nothing
    End If
Next lngLaufZahl
Exit Sub
Fehler:
If wsSOURCE Is Nothing Then
    MsgBox "Keine Datenquelle """ & strSOURCE & CStr(lngLaufZahl) & """ gefunden. Programm wird beendet.", vbCritical, "Fehler..."
        If Not wsTARGET Is Nothing Then Set wsTARGET = Nothing
ElseIf wsTARGET Is Nothing Then
    MsgBox "Keine Datenziel """ & strTARGET & CStr(lngLaufZahl) & """gefunden. Programm wird beendet.", vbCritical, "Fehler..."
        If Not wsSOURCE Is Nothing Then Set wsSOURCE = Nothing
End If
End Sub

Teste mal! Severus

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
07.03.2011 14:34:49 Gast41755
NotSolved
08.03.2011 15:50:22 Severus
NotSolved
08.03.2011 16:27:21 Gast 41755
NotSolved
Blau Kopieren
 08.03.2011 17:10:07 Severus
NotSolved
10.03.2011 10:24:54 Gast 41755
NotSolved
10.03.2011 12:30:54 Severus
NotSolved
10.03.2011 15:04:29 Gast 41755
Solved