Tabellenkalkulation

Brauche hilfe bei Excel Makro

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallöchen zusammen, bräuchte hilfe bei folgendem Code, was ist falsch? bzw. wisst ihr es besser? Option Explicit Private Sub Exportieren_Click() ´ Variablendefinition Dim Pfad As String Dim iRow As Long Application.ScreenUpdating = False Pfad = "C:\Dokumente und Einstellungen\Jenni\Eigene Dateien\Fälligkeiten.xls" Workbooks.Open Filename:=Pfad iRow = Workbook("Tabelle1").Range("A10").End(xlUp).Offset(1, 0).Row ThisWorkbook.Sheets("Rechnung").Range("C20").Copy Workbooks(Pfad).Sheets(Tabelle1).Cells(iRow, 1).PasteSpecial ThisWorkbook.Sheets("Rechnung").Range("B9").Copy Workbooks(Pfad).Sheets(Tabelle1).Cells(iRow, 1).PasteSpecial ThisWorkbook.Sheets("Rechnung").Range("G15").Copy Workbooks(Pfad).Sheets(Tabelle1).Cells(iRow, 1).PasteSpecial ThisWorkbook.Sheets("Rechnung").Range("H38").Copy Workbooks(Pfad).Sheets(Tabelle1).Cells(iRow, 1).PasteSpecial Pfad = Dir() End Sub

Antwort 1 von coros

Hallo Jenny,

in der Zeile

iRow = Workbook("Tabelle1").Range("A10").End(xlUp).Offset(1, 0).Row

ist auf jeden Fall ein Fehler. Das muss entweder

iRow = Worksheets("Tabelle1").Range("A10").End(xlUp).Offset(1, 0).Row

oder

iRow = ActiveWorkbook.Sheets("Rechnung").Range("A10").End(xlUp).Offset(1, 0).Row

oder

iRow = Workbook(Pfad).Sheets("Tabelle1").Range("A10").End(xlUp).Offset(1, 0).Row

Kannst Dir eine Zeile davon aussuchen. Machen aber alle das gleiche. Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von Kesc

Hallöchen!
Ok danke schon mal für die Zeile,

jetzte streicht er mri aber :
Workbooks(Pfad).Sheets("Fälligkeit").Cells(iRow, 1).PasteSpecial
an!
bin so langsam echt am verzweifeln,
Vielleicht weißt du ja noch was viel einfacheres,
soll einfach die Zellen "C20" "B9" "H38" "G15" von der Datei Rechnung(Tablle Rechnung) in die Datei Fälligkeiten (Tabelle Fälligkeit verschieben") und dannach in die nächste zeile rücken!

Antwort 3 von coros

Hallo Jenny,

so sollte es funktionieren. Tausche nachfolgenden den VBA-Code gegen den Alten aus. MAche Dir aber zuerst eine Sicherheitskopie Deiner Datei, nicht das was schief läuft.

Option Explicit Private Sub Exportieren_Click() Rem Variablendefinition Dim Pfad As String Dim iRow As Long, Dateiname As String Application.ScreenUpdating = False Pfad = "C:\Dokumente und Einstellungen\Jenni\Eigene Dateien\" Dateiname = "Fälligkeiten.xls" Workbooks.Open Filename:=Pfad & Dateiname iRow = Workbooks(Dateiname).Sheets("Fälligkeit").Range("C65536").End(xlUp).Offset(1, 0).Row ThisWorkbook.Sheets("Rechnung").Range("C20").Copy Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 3).PasteSpecial ThisWorkbook.Sheets("Rechnung").Range("B9").Copy Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 2).PasteSpecial ThisWorkbook.Sheets("Rechnung").Range("G15").Copy Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 7).PasteSpecial ThisWorkbook.Sheets("Rechnung").Range("H38").Copy Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 8).PasteSpecial End Sub

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von Kesc

Wow es Hat funktioniert! wie toll!
SUPER DANKE MEGA TOLL FREU

aber noch einen anschlag auf dich vorhabe.

in den Zellen H38 und G15 war jeweils eine Formel hinterlegt! ist es möglich nur den Wert rüber zu kopieren! ??!

Antwort 5 von coros

Hallo Jenny,

dann tausche die Zeilen

Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 7).PasteSpecial

und

Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 8).PasteSpecial

gegen die Zeilen

Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 7).PasteSpecial Paste:=xlPasteValues

und

Workbooks(Dateiname).Sheets("Fälligkeit").Cells(iRow, 8).PasteSpecial Paste:=xlPasteValues

aus. Das war´s.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 6 von Kesc

SUPER toll!
allres hat geklappt!
vielen vielen dank!