Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro aus PERSONL.XLS klappt nicht

Makro aus PERSONL.XLS klappt nicht
Sebastian
Hallo zusammen,
ich habe ein Makro, das mir aus einer immer gleich aufgebauten Datei Werte in eine andere Arbeitsmappe koiert. Dieses Makro funktioniert ohne Probleme wenn ich es in jeder Datei reinkopiere und dann ausführe. Nun wollte ich das Makro in die PERSONL.XLS kopieren und dann immer von dort ausführen, da mir so die copy & paste Arbeite ersparte bleiben würde. Doch leider funktioniert es nicht, wenn ich das Makro aus der PERSONL. XLS ausführen will. Woran kann das liegen?
Das Makro habe ich in ein Modul unter der PERSONL.XLS gelegt.
Viele Grüße
Sebastian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro aus PERSONL.XLS klappt nicht
09.02.2011 10:37:39
Hajo_Zi
Hallo Sebastian,
man könnte vermuten der Code, den die meisten nicht sehen ist falsch.

AW: Makro aus PERSONL.XLS klappt nicht
09.02.2011 10:41:40
Sebastian
Hallo, hier nun der Code. Dieser funktioniert wie gesagt, wenn ich ihn nicht aus der PERSONL.XLS starte.
Sub Beispiel()
datei = Dir("H:\Eigene Dateien\Test.xls") 'Pfad festlegen
Set quelle = Workbooks(datei)
ws = ActiveSheet.name
With Sheets(ws)
zed = .Range("B4")
rv = .Range("B5")
art = .Range("B3")
jahr = Right(.Range("B3"), 4)
End With
Sheets(ws).Activate
i2 = quelle.Sheets(1).Range("A65536").End(xlUp).Row + 1
For i = 1 To Tabelle1.UsedRange.Rows.Count
If IsNumeric(Tabelle1.Cells(i, 1)) And Tabelle1.Cells(i, 1) > 0 And Tabelle1.Cells(i, 5) > 0  _
Then
konto = Cells(i, 1)
Bez = Cells(i, 2)
betrag = Cells(i, 5)
quelle.Sheets(1).Cells(i2, 1) = konto
quelle.Sheets(1).Cells(i2, 2) = Bez
quelle.Sheets(1).Cells(i2, 3) = zed
quelle.Sheets(1).Cells(i2, 4) = rv
quelle.Sheets(1).Cells(i2, 5) = art
quelle.Sheets(1).Cells(i2, 6) = jahr
quelle.Sheets(1).Cells(i2, 7) = betrag
i2 = i2 + 1
End If
Next i
End Sub
Viele Grüße
Sebastian
Anzeige
AW: Makro aus PERSONL.XLS klappt nicht
09.02.2011 10:47:00
Hajo_Zi
Hallo sebastian,
in dieser Zeile
For i = 1 To Tabelle1.UsedRange.Rows.Count
beziehst Du dich auf Tabelle1 in der Personl.xls.
Gruß Hajo
AW: Makro aus PERSONL.XLS klappt nicht
09.02.2011 11:05:02
Sebastian
Hallo Hajo,
vielen Dank für den Hinweis. Nun klappt es.
Viele Grüße
Sebastian

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige