Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
812to816
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bitte Hilfe bei Ergänzung

bitte Hilfe bei Ergänzung
18.10.2006 23:01:31
Uwe
Hallo an alle Excel-Nachtschwärmer,
habe bei der Recherche folgendes Makro gefunden.

Sub Uebertrag()
'03.10.03 von Bernhard Mächler
Sheets(1).Select
With Sheets(2)
lRow = .Range("C35").End(xlUp).Row + 1
.Cells(lRow, 1).Value = [A3]
.Cells(lRow, 3).Value = [C5]
.Cells(lRow, 4).Value = [C6]
.Cells(lRow, 5).Value = [C7]
.Cells(lRow, 6).Value = [D5]
.Cells(lRow, 7).Value = [D6]
.Cells(lRow, 8).Value = [D7]
.Cells(lRow, 9).Value = [E5]
.Cells(lRow, 10).Value = [E6]
.Cells(lRow, 11).Value = [E7]
.Cells(lRow, 12).Value = [F5]
.Cells(lRow, 13).Value = [F6]
.Cells(lRow, 14).Value = [F7]
End With
End Sub

....wie muß das geändert werden wenn die Daten in einer anderen Mappe abgespeichert werden sollen z.b. C:\Gesamt.xls in Tabelle1 oder so.
Weiter wäre die Frage ob man die geschlossene Gesamt.xls dann öffnen kann-Daten einfügen-Speichern- und wieder schließen.
Ist sowas überhaupt möglich?
vielen Dank schon mal im vorraus.
Gruß Uwe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bitte Hilfe bei Ergänzung
18.10.2006 23:28:45
Uduuh
Hallo,
kein Problem.

Sub Uebertrag()
Dim wks As Worksheet, wks1 As Worksheet
Set wks1 = ThisWorkbook.Sheets(1)
On Error Resume Next
Set wks = Workbooks("gesamt.xls").Sheets("Tabelle1")
On Error GoTo 0
If wks Is Nothing Then
Set wks = Workbooks.Open("c:\gesamt.xls").Sheets("Tabelle1")
With wks
lRow = .Range("C35").End(xlUp).Row + 1
.Cells(lRow, 1).Value = wks1.[A3]
.Cells(lRow, 3).Value = wks1.[C5]
.Cells(lRow, 4).Value = wks1.[C6]
.Cells(lRow, 5).Value = wks1.[C7]
.Cells(lRow, 6).Value = wks1.[D5]
.Cells(lRow, 7).Value = wks1.[D6]
.Cells(lRow, 8).Value = wks1.[D7]
.Cells(lRow, 9).Value = wks1.[E5]
.Cells(lRow, 10).Value = wks1.[E6]
.Cells(lRow, 11).Value = wks1.[E7]
.Cells(lRow, 12).Value = wks1.[F5]
.Cells(lRow, 13).Value = wks1.[F6]
.Cells(lRow, 14).Value = wks1.[F7]
End With
wks.Parent.Close True
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: bitte Hilfe bei Ergänzung
19.10.2006 02:26:40
Uwe
Hallo Udo,
Super klasse! So bekommt man einen ans Arbeiten :-).
Hab es noch was erweitert und es läuft super.
Nochmals Dank.
Gruß Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige