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:
1917		 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)

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
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:
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
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