VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Daten aus mehreren Dateien zusammenführen	23.04.2014 15:50:08	Santiago
Daten aus mehreren Dateien zusammenführen	23.04.2014 16:46:14	Gast26779
Daten aus mehreren Dateien zusammenführen	23.04.2014 21:50:00	Santiago
- egal Hauptsach es läuft :D	23.04.2014 17:54:13	Gast66204
- egal Hauptsach es läuft :D	23.04.2014 21:52:31	Santiago
- egal Hauptsach es läuft :D	23.04.2014 22:44:36	Gast37806
- egal Hauptsach es läuft :D	24.04.2014 09:33:25	Santiago
- egal Hauptsach es läuft :D	24.04.2014 10:19:05	Gast31661
- egal Hauptsach es läuft :D	24.04.2014 11:10:13	Gast82566
- egal Hauptsach 1 x geht´s no	24.04.2014 14:35:07	Gast6535
Das Kartenhaus steht	25.04.2014 11:27:04	Santiago

Ansicht des Beitrags:

Von:
Gast82566

Datum:
24.04.2014 11:10:13

Views:
1625

Rating:

Antwort:

Thema:
- egal Hauptsach es läuft :D

Vielen vielen Dank für die schnelle Antwort! Das funktioniert auch super (er zeigt zwar den Pfad und nicht den Namen der Datei an, aber das geht auch, da im Pfad der Name enthalten ist).
Ein Problem habe ich noch. Es sind insgesamt 32 Zeilen die ich aus jeder Datei entnehme. Der Pfad wird jetzt jedoch immer nur in die erste Zeile rechts daneben eingefügt. Mein Code schaut momentan so aus (ich musste den Befehl für nicht zusammenhängende Zeilen irgendwie immer neu einfügen, da sonst ein Fehler gemeldet wurde)

wksInput.Activate
wksInput.Range("=L7:AQ7").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=A2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("A2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


wksInput.Activate
wksInput.Range("=L11:AQ14").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=B2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("B2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


wksInput.Activate
wksInput.Range("=L19:AQ20").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=F2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("F2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


wksInput.Activate
wksInput.Range("=L24:AQ25").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=H2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("H2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


wksInput.Activate
wksInput.Range("=L48:AQ49").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=J2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("J2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True



wksInput.Activate
wksInput.Range("=L108:AQ113").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=L2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("L2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


wksInput.Activate
wksInput.Range("=L115:AQ123").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=R2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("R2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True



wksInput.Activate
wksInput.Range("=L170:AQ178").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=AA2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("AA2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True



wksInput.Activate
wksInput.Range("=L181:AQ188").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=AJ2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("AJ2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


wksInput.Activate
wksInput.Range("=L189:AQ189").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=AR2").Select
If Selection.Value <> "" Then
  Worksheets(i).Range("AR2").End(xlDown).Select
  Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


Selection.Cells(1).Offset(0, 1).Value = wkbInput.FullName & " " & wksInput.Name

i = i + 1
Loop

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
Daten aus mehreren Dateien zusammenführen	23.04.2014 15:50:08	Santiago
Daten aus mehreren Dateien zusammenführen	23.04.2014 16:46:14	Gast26779
Daten aus mehreren Dateien zusammenführen	23.04.2014 21:50:00	Santiago
- egal Hauptsach es läuft :D	23.04.2014 17:54:13	Gast66204
- egal Hauptsach es läuft :D	23.04.2014 21:52:31	Santiago
- egal Hauptsach es läuft :D	23.04.2014 22:44:36	Gast37806
- egal Hauptsach es läuft :D	24.04.2014 09:33:25	Santiago
- egal Hauptsach es läuft :D	24.04.2014 10:19:05	Gast31661
- egal Hauptsach es läuft :D	24.04.2014 11:10:13	Gast82566
- egal Hauptsach 1 x geht´s no	24.04.2014 14:35:07	Gast6535
Das Kartenhaus steht	25.04.2014 11:27:04	Santiago