|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.04.2014 15:50:08 |
Santiago |
|
|
|
23.04.2014 16:46:14 |
Gast26779 |
|
|
|
23.04.2014 21:50:00 |
Santiago |
|
|
|
23.04.2014 17:54:13 |
Gast66204 |
|
|
|
23.04.2014 21:52:31 |
Santiago |
|
|
|
23.04.2014 22:44:36 |
Gast37806 |
|
|
|
24.04.2014 09:33:25 |
Santiago |
|
|
|
24.04.2014 10:19:05 |
Gast31661 |
|
|
|
24.04.2014 11:10:13 |
Gast82566 |
|
|
 - egal Hauptsach 1 x geht´s no |
24.04.2014 14:35:07 |
Gast6535 |
|
|
|
25.04.2014 11:27:04 |
Santiago |
|
|
Von:
Gast6535 |
Datum:
24.04.2014 14:35:07 |
Views:
1666 |
Rating:
|
Antwort:
|
Thema:
- egal Hauptsach 1 x geht´s no |
|
Es lebe der Zentralfriedhof, der Code wird makaber :->
Dim lCol As Long ' Schleifenzähler
Dim i As Integer
Dim dokuSpalte As String 'hier soll der Dateiname rein
Application.DisplayAlerts = False
'Delta = 0
.
.
.
.
Worksheets(i).Activate
Worksheets(i).Range("=A1").Select
If Selection.Value <> "" Then
Worksheets(i).Range("A1").End(xlDown).Select
Selection.Offset(1).Select
End If
dokuSpalte = "C" 'immer passend zur "Zielvorgabe" setzen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'das Offset zur PasteSpecial errechnet aus dokuSpalte - Paste(spalte)
'wkbInput.Name ist der Dateiname und ggf.
' & " " & wksInput.Name mit dem Blattnamen ergänzt
Selection.Offset(0, Columns(dokuSpalte).Column - Selection.Column).Value = wkbInput.Name & " " & wksInput.Name
i = i + 1
Loop
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
23.04.2014 16:46:14 |
Gast26779 |
|
|
|
23.04.2014 21:50:00 |
Santiago |
|
|
|
23.04.2014 17:54:13 |
Gast66204 |
|
|
|
23.04.2014 21:52:31 |
Santiago |
|
|
|
23.04.2014 22:44:36 |
Gast37806 |
|
|
|
24.04.2014 09:33:25 |
Santiago |
|
|
|
24.04.2014 10:19:05 |
Gast31661 |
|
|
|
24.04.2014 11:10:13 |
Gast82566 |
|
|
- egal Hauptsach 1 x geht´s no |
24.04.2014 14:35:07 |
Gast6535 |
|
|
|
25.04.2014 11:27:04 |
Santiago |
|
|