Markierter Bereich an Stelle X einfügen
Fabi
Ich gehöre zu den blutigen Anfängern und ich bräuchte Hilfe von den Excel-VBA-Erfahrenen und Experten. Um VBA zu lernen habe ich mir ein Buch gekauft: "Jetzt lerne ich VBA-Excel" aber ich bin leider noch nicht soweit, dass ich für mein Problem eine Lösung schreiben kann.
Es geht um folgendes Problem:
Ein Programm wirft Excel Dateien, die in eine andere gesamte Excel-Datei importiert werden müssen.
Die Export-Dateien enthalten ein Wort am Anfang, dann das jeweilige Datum und anschließend ein Wort in der Dateiname:
DateiTitel_Datum_DateiUntertitel.xls
Datum=TTMMJJJJ
Beispiel: Betrieb_15122009_Alle.xls
Folgendes Code habe ich bis jetzt aus verschiedenen Quellen zusammen basteln können.
Die Kommentare sind mehr für mich um zu verstehen was im Hintergrund so alles passiert.
Sub DatenEinfuegenAnStelleX()
' Reserviert ein Platz für das Öffnen der Datei
Dim dateiname As String
' Wenn Fehler auftaucht, nichts anmerken lassen... Einfach Augen zu und durch ;-)
On Error Resume Next
dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
' Datei öffnen
Workbooks.Open Filename:=dateiname
' Zelle A7 steuern und drum herum kopieren
ActiveSheet.Range("a7").CurrentRegion.Select
' Markierten Bereich kopieren
Selection.Copy
' Dateiname analysieren und Datum erkennen
' Mappe Index öffnen
' Mappe Index besteht aus 54 Blätter - 53 für 53 Kalenderwochen und ein DateIndex
' Tabelle DateIndex aktivieren
' in Tabelle Index sehen wohin es kopiert werden soll
' Aufbau der DateIndex:
' Spalte A = Datum - - - Spalte B = Tabelle - - - Spalte C = Zelle
' Es stehen 53 Tabellen nach Kalenderwochen: Name: 01KW; 02KW;...
' An jeweilige Stelle nach DateIndex als Text/Wert einfügen
' Datei speichern und Schließen
End Sub
Da wo nur Kommentare stehen, da bräuchte ich Hilfe. Ich hoffe, ich konnte einigermaßen das Problem deutlich schildern.
Ich würde mich sehr über Hilfe und Anregung freuen und möchte mich ganz herzlich im Voraus für alle Zuschriften bedanken. Ich wäre sehr dankbar, wenn ich mit Euer Hilfe das Problem lösen kann.
Falls etwas nicht klar ist oder noch Fragen da sind um das Aufgabe zu verstehen, bitte ich ganz herzlich darum zu fragen.
Vielen Dank für die Mühe im Voraus.
Wahrscheinlich ist mein Forumsthema ein Roman geworden, aber ich wüsste jetzt nicht, wie ich es besser beschreiben soll.
Vielen vielen Dank für Euer Hilfe im Voraus.
Fabi ;-)