Thema Datum  Von Nutzer Rating
Antwort
06.02.2013 21:36:27 Sino
NotSolved
08.02.2013 12:52:00 Holger
NotSolved
11.02.2013 09:39:34 Max
NotSolved
Blau Import aus anderer Excel Datei
 11.02.2013 17:41:17 Gast5352
NotSolved
11.02.2013 19:33:46 Gast74981
NotSolved
12.02.2013 00:12:26 Sino
NotSolved
12.02.2013 11:52:37 Max
NotSolved

Ansicht des Beitrags:
Von:
Gast5352		 Datum:
11.02.2013 17:41:17		 Views:
1218		 Rating:
     
Antwort:
  Ja
Thema:
Import aus anderer Excel Datei

Hi Max, Hi Holger,

danke fuer eure Antworten. Habe jetzt mal eine Loesung bekommen:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub sammel()
Dim i, zeile
For i = 1 To 3
Workbooks("quelle.xls").Sheets("q" & i).UsedRange.Copy Sheets("z1").Range("A" & Sheets("z1").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Next
For Each zeile In Sheets("z1").UsedRange.Rows
 If Sheets("z1").Range("B" & zeile.Row) = "aa" Then zeile.Copy Sheets("z2").Range("A" & Sheets("z2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
 If Sheets("z1").Range("B" & zeile.Row) = "bb" Then zeile.Copy Sheets("z3").Range("A" & Sheets("z3").Cells(Rows.Count, 1).End(xlUp).Row + 1)
 If Sheets("z1").Range("B" & zeile.Row) = "cc" Then zeile.Copy Sheets("z4").Range("A" & Sheets("z4").Cells(Rows.Count, 1).End(xlUp).Row + 1)
 If Sheets("z1").Range("B" & zeile.Row) = "dd" Then zeile.Copy Sheets("z5").Range("A" & Sheets("z5").Cells(Rows.Count, 1).End(xlUp).Row + 1)
 If Sheets("z1").Range("B" & zeile.Row) = "ee" Then zeile.Copy Sheets("z6").Range("A" & Sheets("z6").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Next
End Sub

 

Aber wie muesste ich den Code modifizieren, wenn ich nur besimmte spalten importieren will? 

Beispiel: 

-In Tabellenblatt z2 der Datei Ziel.xls sollen nur die Spalten A, B, und D von q1, q2 und q3 eingefuegt werden, die in der jeweiligen Spalte B die Werte aa enthalten. 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
06.02.2013 21:36:27 Sino
NotSolved
08.02.2013 12:52:00 Holger
NotSolved
11.02.2013 09:39:34 Max
NotSolved
Blau Import aus anderer Excel Datei
 11.02.2013 17:41:17 Gast5352
NotSolved
11.02.2013 19:33:46 Gast74981
NotSolved
12.02.2013 00:12:26 Sino
NotSolved
12.02.2013 11:52:37 Max
NotSolved