Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Kesc vom 10.01.2019, 12:01 Options

Brauche hilfe bei Excel Makro

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 schreiben

Antwort 1 von coros vom 10.01.2019, 12:51 Options

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 vom 10.01.2019, 13:08 Options

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 vom 10.01.2019, 13:34 Options

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 vom 10.01.2019, 13:50 Options

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 vom 10.01.2019, 14:15 Options

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 vom 10.01.2019, 15:04 Options

SUPER toll!
allres hat geklappt!
vielen vielen dank!

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken