Thema Datum  Von Nutzer Rating
Antwort
22.03.2011 23:57:56 TheIrish
NotSolved
23.03.2011 00:46:52 Severus
NotSolved
23.03.2011 01:45:56 Gast44357
NotSolved
23.03.2011 01:47:05 TheIrish
NotSolved
23.03.2011 03:05:13 Severus
NotSolved
Blau Tabellenblätter suchen und Werte von einer Mappe in eine andere kopieren
 23.03.2011 03:16:43 Severus
NotSolved
23.03.2011 03:22:44 Severus
NotSolved
23.03.2011 22:02:03 TheIrish
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
23.03.2011 03:16:43		 Views:
889		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter suchen und Werte von einer Mappe in eine andere kopieren

Hab mir's nochmal angeschaut. Vielleicht hab ich Dich schon richtig verstanden. Probier mal


Sub InformationenEinfuegen()
Dim Zielmappe As Workbook
Dim QuellBlatt As Worksheet
Dim ZielBlatt As Worksheet
Dim strInhalt As String

Set Zielmappe = Workbooks.Open("C:\irgendwo\wasauchimmer.xls")

With Zielmappe
    For Each ZielBlatt In .Worksheets
        If InStr(1, ZielBlatt.Name, "GM11_6-", vbBinaryCompare) <> 0 Then
            strInhalt = ZielBlatt.Range("B5")
            With ThisWorkbook
                For Each QuellBlatt In .Worksheets
                    With QuellBlatt
                        If .Cells("C1") = strInhalt Then
                            .Range("B6:I13").Select
                            Selection.Copy ZielBlatt.Range("B22")
                            .Range("B16:Q21").Select
                            Selection.Copy ZielBlatt.Range("B32")
                        End If
                    End With
                Next
            End With
        End If
    Next
End With
Set Zielmappe = Nothing
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
22.03.2011 23:57:56 TheIrish
NotSolved
23.03.2011 00:46:52 Severus
NotSolved
23.03.2011 01:45:56 Gast44357
NotSolved
23.03.2011 01:47:05 TheIrish
NotSolved
23.03.2011 03:05:13 Severus
NotSolved
Blau Tabellenblätter suchen und Werte von einer Mappe in eine andere kopieren
 23.03.2011 03:16:43 Severus
NotSolved
23.03.2011 03:22:44 Severus
NotSolved
23.03.2011 22:02:03 TheIrish
Solved