Thema Datum  Von Nutzer Rating
Antwort
08.01.2016 12:14:16 wuvlly
NotSolved
Blau Bestimmte Zelle aus vielen Arbeitsmappen kopieren
 08.01.2016 17:11:44 Gast96202
NotSolved
14.01.2016 12:41:50 Gast88079
NotSolved
14.01.2016 12:46:30 Gast88003
Solved

Ansicht des Beitrags:
Von:
Gast96202		 Datum:
08.01.2016 17:11:44		 Views:
736		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zelle aus vielen Arbeitsmappen kopieren		 
Option Explicit

Sub TryIt()
'*********************************************************************
'step 0 : diese Prozedur in ein VBA Modul der Ziel-Sammel-Arbeitsmappe
'         zu beschreibendes Tabellenblatt aktivieren
'         diese Prozedur starten
'*********************************************************************
'
'step 1 : Quelldaten-Arbeitsmappe öffnen, sonst Abschied
'         KEINE Überprüfung der Quelldaten!!!
If Application.FindFile = False Then Exit Sub
'
Dim oWsh As Excel.Worksheet
Dim Rng As Range
'
'step 2 : Zelle wo fortlaufend geschrieben
Set Rng = Workbooks(1).ActiveSheet.Columns(2).Cells(Rows.Count).End(xlUp).Offset(1)
'step 3 : durch alle Blätter der Quelle
For Each oWsh In Workbooks(2).Sheets
   'Teilnehmer am Beginn in Spalte 1
   oWsh.Range("A2").Copy Destination:=Rng.Offset(, -1)
   'Telefonnummern(block) ditto daneben
   If Len(Trim(oWsh.Range("C5").Value)) > 0 Then
      'mehr als 1 Eintrag
      Range(oWsh.Range("C4"), oWsh.Range("C4").End(xlDown)).Copy Destination:=Rng
   Else
      ' nur 1 Eintrag
      oWsh.Range("C4").Copy Destination:=Rng
   End If
   'neu justieren
   Set Rng = Workbooks(1).ActiveSheet.Columns(2).Cells(Rows.Count).End(xlUp).Offset(1)
Next oWsh
Workbooks(2).Close False
Set oWsh = 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
08.01.2016 12:14:16 wuvlly
NotSolved
Blau Bestimmte Zelle aus vielen Arbeitsmappen kopieren
 08.01.2016 17:11:44 Gast96202
NotSolved
14.01.2016 12:41:50 Gast88079
NotSolved
14.01.2016 12:46:30 Gast88003
Solved