Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Brauche hilfe bei Excel Makro





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!

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: