Thema Datum  Von Nutzer Rating
Antwort
23.04.2014 15:50:08 Santiago
Solved
23.04.2014 16:46:14 Gast26779
NotSolved
23.04.2014 21:50:00 Santiago
NotSolved
23.04.2014 17:54:13 Gast66204
NotSolved
23.04.2014 21:52:31 Santiago
NotSolved
23.04.2014 22:44:36 Gast37806
NotSolved
24.04.2014 09:33:25 Santiago
NotSolved
24.04.2014 10:19:05 Gast31661
NotSolved
Rot - egal Hauptsach es läuft :D
24.04.2014 11:10:13 Gast82566
NotSolved
24.04.2014 14:35:07 Gast6535
NotSolved
25.04.2014 11:27:04 Santiago
NotSolved

Ansicht des Beitrags:
Von:
Gast82566
Datum:
24.04.2014 11:10:13
Views:
1734
Rating: Antwort:
  Ja
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
23.04.2014 15:50:08 Santiago
Solved
23.04.2014 16:46:14 Gast26779
NotSolved
23.04.2014 21:50:00 Santiago
NotSolved
23.04.2014 17:54:13 Gast66204
NotSolved
23.04.2014 21:52:31 Santiago
NotSolved
23.04.2014 22:44:36 Gast37806
NotSolved
24.04.2014 09:33:25 Santiago
NotSolved
24.04.2014 10:19:05 Gast31661
NotSolved
Rot - egal Hauptsach es läuft :D
24.04.2014 11:10:13 Gast82566
NotSolved
24.04.2014 14:35:07 Gast6535
NotSolved
25.04.2014 11:27:04 Santiago
NotSolved