Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro umschreiben?

makro umschreiben?
19.05.2003 07:05:57
moritz
Guten Morgen,
da ich keine große Ahnung von Makros habe und gerade auf dem Schlauch stehe hoffe ich, dass einer von euch mir weiter helfen kann! ich will aus verschiedenen tabellenblättern immer die gleiche spalte (e2:e200) in ein bestehendes tabellenblatt kopieren. auf meiner suche nach was geeignetem habe ich folgendes gefunden:

Sub Daten_aktualisieren()
Dim sFile As String, sPath As String
Application.ScreenUpdating = False
sPath = "c:\testo\"
Set wksTarget = Worksheets(1)
Range("A1") = "Daten"
Range("A1").Font.Bold = False
If Right(sPath, 1) <> "/" Then
sPath = sPath & "\"
End If
sFile = Dir(sPath & "*.txt")
Do While sFile <> ""
Workbooks.Open sPath & sFile
sFilealt = sFile
sFile = Dir()
irowT = wksTarget.Cells(Rows.Count, 2).End(xlUp).Row + 2
If irowT < 10 Then rowT = 10
Range("E2:E280").Select
Selection.Copy
wksTarget.Activate
Cells(irowT, 2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' Ebenso für die weiteren Felder, wobei entweder immer zwischen den Fenstern
' gewechselt wird oder aber die Werte in Variablen oder einem Array
' transportiert werden. So zum Beispiel weiter mit Springen
Windows(sFilealt).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Loop
Application.ScreenUpdating = True
End Sub

dies funktioniert auch so weit nur mein problem ist, dass ich die ergebnisse nicht untereinander in einer spalte brauch, sondern dass es für jede kopierte spalte eines spalte weiterrutscht( also erste kopierte spalte beginn b3; zweite kopierte spalte c3....) . kann ich denn oberen code dazu umschreiben?
vielen dank schon mal für eure hilfe
moritz

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: makro umschreiben?
19.05.2003 08:51:01
Jan

Hallo, würde mal einen kleinen VB-Kurs empfehlen. Auf die Dauer eh nicht umgänglich und nützlich um die Möglichkeiten die Vb bietet zu entdecken.
Ich hatte damit angefangen.
http://www.vb-seminar.de/
Jan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige