Tabellenkalkulation

speicher 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

hallo ich bräucht jetzt nur noch ein makro das eine bereits offene datei unter einem namen zb testAugust abspeichert. Das August soll sich aber nach monat verändern zb. wenn jetzt september ist soll die datei unter dem namen testSeptember abgespeichert werden ich hoffe mir kann jemand helfen gruß

Antwort 1 von jörg

Hallo

Das erledigt folgendes Statement:

ActiveWorkbook.SaveAs ("test" & MonthName(Month(Now())))

Gruß

Antwort 2 von helfer_001

danke vielmals

Antwort 3 von helfer_001

wie kann ich den pfad angeben in dem die Datei gespeichert werden soll?

Antwort 4 von helfer_001

Kann ich auch im excel ein makro starten das eine pp datei speichert?

ich hab ein makro das auf eine pp datei zugreift und sie verändert. Das soll jetzt unter einem bestimmten pfad gespeichert werden.

Antwort 5 von coros

Hi helfer_001

speichern kannst DU eine Powerpointdatei mit dem Befehl

xyz..ActivePresentation.Save

Anstelle von xyz muss der Name stehen, denn Du in der Zeile

Set xyz = CreateObject("Powerpoint.Application")

vergeben hast. Also der Name, der gleich nach der Anweisung "Set" folgt.

Wenn Du die Präsentation auch schließen möchtest, kannst Du das über den Befehl

xyz..ActivePresentation.Close

erledigen.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.

PS: Warum gewöhnst Du Dir nicht endlich mal die Höflichkeitsform des Grußes an? Wenn Du Dir andere Beiträge ansiehst, auch die Antwort 1, treten Dir die Leute hier mit der gewissen Höflichkeit entgegegen. Warum machst Du das nicht?
<Kopfschüttel>

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 helfer_001

hallo

Zitat:
hallo

ich bräucht jetzt nur noch ein makro das eine bereits offene datei unter einem namen zb testAugust abspeichert.
Das August soll sich aber nach monat verändern
zb. wenn jetzt september ist soll die datei unter dem namen testSeptember abgespeichert werden

ich hoffe mir kann jemand helfen

gruß

hab ich doch!!!!!!!!
bei den anderen antworten hatte ichs eilig (musste aufs wc) und da hab ichs, im eifer des gefechts vergessen.

gruß

Antwort 7 von helfer_001

hallo

danke für deine hilfe

gruß

Antwort 8 von helfer_001

hallo

beim schließen schließt er nur das projekt, ich würde aber gerne das ganze programm schließen

gruß

Antwort 9 von helfer_001

hallo

With .Selection.SlideRange.Shapes(iShape_Name)
.Left = 129.125
.Top = 304
.Width = 635
.Height = 221.75

frage: kann ich auch von unten den abstand bestimmen, wie bei top?

gruß

Antwort 10 von coros

Hallo helfer_001

nein, die Position von unten kannst Du nicht angeben. Wobei man die auch nicht benötigt, denn was man mit "von unten" machen kann, geht auch mit Top, eben nur von oben.

Zum Schließen nehme nachfolgendes Makro.

Option Explicit

Sub Powerpoint_schließen()
    Dim Powerpoint As Object, PowerpointDat As Object, Anzahl_Powerpoint As Object
    Set Powerpoint = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
    Set Anzahl_Powerpoint = Powerpoint.ExecQuery("Select * from Win32_Process Where Name = ´powerpnt.exe´")
    For Each PowerpointDat In Anzahl_Powerpoint
        PowerpointDat.Terminate (0)
    Next
End Sub

Entweder bindest Du den Code des Makros in Dein Makro mit ein oder Du startest über den Befehl

Powerpoint_schließen

am Ende Deines Makros das Makro "Powerpoint_schließen".

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 11 von helfer_001

hallo

danke!
bei der speicherfunktion würde ich noch gerne (wie oben beschrieben) vom excel aus die pp datei unter einem bestimmten namen z.B testAugust unter einen bestimmten pfad abspeichern, die pp die ich verändere soll gespeichert werden aber das orginal soll im uhrzustand bleiben

beispiel wie ich das meine: ich offne pp und klicke auf "speichern unter" und geb einen anderen namen ein. jetzt klicke ich auf speichern und habe die pp datei zweimal(die ungespeicherte version die ich geöffnet habe und die neue gespeicherte version)

ich hoffe du verstehst wie ich das meine, es ist nicht so leicht so etwas schriftlich zu beschreiben, da ich kein wort betonen kann...

Antwort 12 von helfer_001

gruß (<= hab ich fast vergessen, aber nur fast)

Antwort 13 von helfer_001

hallo

das schließen fonktioniert irgedwie nicht.
ich habs ins makro kopiert anscheinend hab ich da was falsch gemacht...

ich hab:

Dim Powerpoint As Object, PowerpointDat As Object, Anzahl_Powerpoint As Object

ganz am anfang und:

Set Powerpoint = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") 
Set Anzahl_Powerpoint = Powerpoint.ExecQuery("Select * from Win32_Process Where Name = ´powerpnt.exe´") 
For Each PowerpointDat In Anzahl_Powerpoint 
PowerpointDat.Terminate (0) 
Next

ans ende kopiert muss ich irgendetwas umschreiben?

gruß

Antwort 14 von helfer_001

hallo

Zitat:
For Each PowerpointDat In Anzahl_Powerpoint

wo bekommt PowerpointDat einen wert zugewießen?

gruß

Antwort 15 von helfer_001

hallo

Zitat:
nein, die Position von unten kannst Du nicht angeben. Wobei man die auch nicht benötigt, denn was man mit "von unten" machen kann, geht auch mit Top, eben nur von oben.

wenn die tabelle eingefügt wird sind manche zeilen nähmlich größer als amdere. ich muss die immer manuel mit der maus kleiner ziehen...
gibts einen befehl der eine art "automatische anpassung der zeien" oder so macht?
die spaltengröße soll sich nicht ändern.

gruß

Antwort 16 von helfer_001

hi coros,
falls du heute nochmal vorbeischaust schreib bitte noch zum pp-schließ makro eine erweiterung die auch gleich excel schließt.

danke
gruß

Antwort 17 von coros

Hallo helfer_001,

sorry, dass ich mich erst jetzt melde, aber zwischen dem Fragen beantworten hier muss ich auch noch meine Brötchen verdienen.

Also, Du hast bei dem Code nichts falsch gemacht. Das liegt hier am Forum. Dort werden Hochkommas in Accente gewandelt. Nachfolgend noch einmal der Code, den Du in Dein Makro am Ende einsetzen musst. Die nachfolgende Zeile kopiere bitte an den Anfang Deines Makros.

Dim Powerpoint As Object, PowerpointDat As Object, Anzahl_Powerpoint As Object

Den Rest kopiere ans Ende Deines Makros.

xyz.ActivePresentation.SaveAs "C:\Eigene Dateien\Test.ppt"
Set Powerpoint = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set Anzahl_Powerpoint = Powerpoint.ExecQuery("Select * from Win32_Process Where Name = ´powerpnt.exe´")
For Each PowerpointDat In Anzahl_Powerpoint
PowerpointDat.Terminate (0)
Next
With Application
.DisplayAlerts = False
.Quit
End With

Der Code bewirkt nun, dass Deine Powerpointdatei in einem bestimmten Pfad unter einem bestimmten Namen gespeichert wird, dann Powerpoint geschlossen und danach Excel ohne zu speichern beendet wird.

Zum Schluss musst Du noch zwei Änderungen an dem eingefügten Code machen. In der Zeile

xyz.ActivePresentation.SaveAs "C:\Eigene Dateien\Test.ppt"

musst Du die Buchstaben "xyz" gegen den Namen tauschen, den Du bei "Set xyz = CreateObject("Powerpoint.Application")" vergeben hast. Dann musst Du anstelle des Pfades " C:\Eigene Dateien\Test.ppt " Deinen Pfad und den Namen eintragen.
Dann musst Du noch eine Änderung in der Zeile

Set Anzahl_Powerpoint = Powerpoint.ExecQuery("Select * from Win32_Process Where Name = ´powerpnt.exe´")

machen. Bei der Zeile werden die Hochkommas gewandelt. Du musst die beiden Zeichen vor und hinter dem Wort "powerpnt.exe" (in der obigen Zeile unterstrichen) ändern. Das Forum macht aus den Zeichen, die eigentlich Hochkommas sein sollten, Accente. Du musst nun die Zeichen löschen und anstelle Hochkommas einfügen. Die Hochkommas erreichst Du, in dem Du die Schifttaste und Rautetaste gleichzeitig betätigst.

So, das sollte es eigentlich gewesen sein. Bei Problemen melde Dich wieder.

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 18 von helfer_001

hallo

danke es fonktioniert

aber was ist mit antwort 15?
und kann man bei der zeile wo pp geöffnet wird, wo:

.visible = true

steht, irgedwie umgeformt werden, das das makro pp im hintergrund öffnet

gruß

Antwort 19 von helfer_001

Hallo

kann ein makro aus excel, eine andere bestimmte excel datei öffnen, und dann ein feld anklicken?

damit ich mit:
ActiveSheet.Cells(13, 41).Value = ActiveCell.Value

die vom makro "angeklickte" zelle an eine andere position kopieren kann?

gruß

Antwort 20 von coros

Hi helfer_001

zu AW 15: Nein, gibt es nicht.

zu AW 18: Nein, das geht nicht. Wäre auch sinnlos, da Du in eine ausgeblendete Application eh nichts übertragen könntest. Dafür muss die Application eingeblendet sein. So verhält es sich auch bei Excel. In eine ausgeblendete Exceldatei kann man nichts schreiben, die muss vorher eingblendet werden.

zu AW 19: Die Frage verstehe ich wieder nicht, Was meinst Du mit "ein Feld anklicken"? Anklicken kann man nur mit der Maus. Und was meinst Du? Genauere Beschreibung und es folgt eine Lösung. Aber erst morgen, war ein harte Tag heute.

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 21 von CaroS

Hallo Oliver,

zu AW19/AW20: Das ist wieder dreimal um die Ecke gedacht und dann in dem üblichen Kauderwelsch formuliert.

Es geht um irgendeine bestimmte Zelle (keine Ahnung welche, muss ich auch nicht wissen), die soll angeklickt, dadurch markiert und so zur aktiven Zelle werden. Nachdem sie so "vorbehandelt" wurde, soll ihr Wert der Zelle (13, 41) des aktiven Tabellenblatts zugewiesen werden.

Und nun mit Abkürzung: Es geht um irgendeine bestimmte Zelle (keine Ahnung welche, Hauptsache der Programmierer weiß es), deren Wert soll einfach nur der Zelle (13, 41) des aktiven Tabellenblatts zugewiesen werden.

Es ist nicht ernsthaft zu bestreiten, dass Denken und Sprechen (resp. Schreiben) sehr eng zusammenhängen. Unklarheiten und Ungenauigkeiten auf der einen Ebene bewirken fast zwangsläufig dasselbe auf der anderen.

Zitat:
damit ich ... die vom makro "angeklickte" zelle an eine andere position kopieren kann

Deshalb hier noch die Bemerkung, dass Zellen eben im strengen Sinn überhaupt nicht (niemals!) kopiert oder verschoben werden, sondern höchstens ihre Inhalte (Werte). Die Zelle B3 beispielsweise wird weder durch Kopieren/Einfügen noch durch Aus-schneiden/Einfügen zur Zelle AO13, sie bleibt immer die Zelle B3. Selbstverständlich kann sie auch nicht gelöscht oder von anderen Zellen überschrieben werden, lediglich ihr Inhalt kann sich andauernd ändern.

Da dies im allgemeinen schon genug Arbeit macht, wünsche ich Dir eine gute Nacht!

Gruß,
CaroS

Antwort 22 von helfer_001

hallo

ob dus glaubst oder nicht caros, ich weiß sehr wohl das sich zellen nicht überschreibenlassen..
aber ich glaube, dass jeder hier weiß was ich damit meine und wiso soll ich absolut alles ausschreiben, was an der tatsache das ich eine zelle als

ActiveCell

ansprechen will sowiso nichts ändert....

gruß

Antwort 23 von helfer_001

und das wort "anklicken" hab ich nur verwendet, weil ich dachte, dass das leichter verständlich wäre.
Es ist eben nicht so leicht so etwas schriftlich zu beschreiben, da ich kein wort betonen kann...

Antwort 24 von helfer_001

hallo
ich möchte es jetzt doch lieber anders.

ich starte das makro
das makro soll jetzt eine andere exceldatei öffnen und dort eine spalte, zb a3 markieren und in die excel datei, in der ich das makro gestartet habe zurückkopieren in die zelle AE8

danke
gruß

Antwort 25 von helfer_001

Zitat:
und dort eine spalte

ich meinte natürlich zelle, sorry

Antwort 26 von helfer_001

hallo
antwort 15 muss irgendwie gehen....
die tabelle steht unter der folie raus!!!
was kann ich denn sonst machen?
die erste zeile ist viel größer als sie sein sollte und manuell kann man sie auch verkleinern....
das wäre wirklich sehr wichtig!!!
gruß

Antwort 27 von helfer_001

hi coros
ich weiß das du da bist, also hilf mir bitte ich muss es bald fertig haben

gruß

Antwort 28 von helfer_001

hallo

Zitat:
Antwort 10 von coros vom 04.08.2006, 12:42

ich weiß genau das du da warst, wiso willst du mir nichtmehr helfen, was hab ich getan????

gruß

Antwort 29 von coros

Hallo helfer_001,

ich warte immer erst mal ab, bis Du Dich entscheiden hast, was Du eigentlich möchtest. Denn das ändert sich ja öfters.

Zu AW 15: Arbeite mit den Eigenschaften ".Heigt" und ". Width". Damit kann man die Größe der Tabelle anpassen, so dass diese auf das Blatt passt.
Nur weil Du etwas in Powerpoint per Hand machen kannst, muss das noch lange nicht von Excel heraus gehen. Denn das sind immer noch zwei verschiedene Programm.

Zu AW 24: Nachfolgen ein Makro, dass eine Exceldatei mit dem Namen "Mappe1.xls" im Verzeichnis "C:\" öffnet, die Zelle A3 kopiert und den Inhalt in der Datei, aus der heraus das Makro gestartet wurde, in Blatt "Tabelle1" in Zelle AE8 einfügt. Den Blatt- und Dateinamen musst Du noch anpassen. Kopiere das Makro in ein StandardModul.

Option Explicit

Sub Kopieren()
Workbooks.Open "C:\Mappe1.xls"
Range("A3").Copy
ThisWorkbook.Sheets("Tabelle1").Range("AE8").PasteSpecial
End Sub

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 30 von helfer_001

wenn ich das makro ausführen will steht: "procedure too large"

heißt das das makro ist zu groß?
ich habs in mein rießenmakro eingefügt.
was mach ich jetzt?
ich wollte da noch ein paar 100 zeilen dazutun....

Antwort 31 von coros

Hallo helfer_001,

ich würde mal sagen ja.

Teile das Makro in mehrere Einzelmakros. Dann kannst Du ein Makro erstellen, das am Ende jeweils das nächste Makro startet. Oder verwende bei immer wiederkehrenden Makroteilen Schleifen, das spart Codezeilen.

Mehr kann ich Dir leider nicht dazu sagen, da ich Deinen voluminösen Code nicht kenne.

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 32 von helfer_001

Zitat:
Range("A3").Copy

wenn ich

Range("A3").selectet

schreibe kann ich dann auf diese zelle mit

active.cell

zugreifen?

Antwort 33 von helfer_001

hallo

und wie füre ich im makro ein anderes aus?

gruß

Antwort 34 von coros

Hallo Helfer,

warum willst Du mit ActiveCell darauf zugreifen?

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 35 von helfer_001

hallo

sags einfach, bitte

gruß

Antwort 36 von coros

Hallo Helfer_001,

in dem Du vor End Sub den Makronamen schreibst, dás gestartet werden soll. Beispiel: es soll zuerst das Makro "Kopieren ausgeführt und dann das Makro "Kopieren_2" ausgeführt werden, dann würde das Makro für Kopieren folgendermaßen aussehen:

Option Explicit 

Sub Kopieren() 
Workbooks.Open "C:\Mappe1.xls" 
Range("A3").Copy 
ThisWorkbook.Sheets("Tabelle1").Range("AE8").PasteSpecial 
Kopieren_2
End Sub

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 37 von helfer_001

hallo
danke und das

Zitat:
Range("A3").Copy

wenn ich Range("A3").selectet schreibe kann ich dann auf diese zelle mit active.cell zugreifen?

gruß

Antwort 38 von coros

Hi,

der Befehl heiß nicht "Selectet" sondern "Select".

Ja, Du kannst auch nachdem Du Range("A3").Select geschrieben hast, mit ActiveCell darauf zugreifen.

Ich hoffe nur für Dich, dass Du nicht zu viele von den Select-Anweisungen in Deinem Makro hast, bzw. noch verwenden möchtest. Deshalb meine Frage. Aber ich darf ja nicht fragen, sondern soll nur Antworten.

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 39 von helfer_001

hallo

danke
auf die anderen will ich nicht mehr zugreifen
gruß

Antwort 40 von helfer_001

eine frage hab ich noch:
ich hab vorher schon eine Spalte selektiert, kann ich die position dieser spalte in eine variable schreiben und diese nach kopieren_2(makro) schicken??

Antwort 41 von coros

Hi Helfer,

Zu AW 39: Was meinst Du bitte mit

Zitat:
auf die anderen will ich nicht mehr zugreifen

Oh, sorry, ich darf ja nicht fragen, sondern soll nur Antworten.

Zu AW 40: Ja, man kann eine Spaltenindexzahl in eine Variable speichern und diese an das nächste Makro mit übergeben. Du musst also eine Variable erstellen, in das die Spaltenindexnummer geschrieben wird. Die Zeile lautet

Spalte = Selection.Column

Die Variable "Spalte" muss als Integer (Dim Spalte As Integer) deklariert werden. Dann musst Du beim Aufruf des Makros Kopieren 2 die Variable mit übergeben. Die Zeile dazu lautet

Kopieren_2 Spalte

Die einleitende Zeile für das "Makro Kopieren_2" lautet dann

Sub Kopieren_2(Spalte As Integer)

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 42 von helfer_001

hallo

danke, ist ja fast wie in c++

gruß

Antwort 43 von helfer_001

Das soll ich verwenden um den wert in die mappe zurückzuschreiben

ThisWorkbook.Sheets("Tabelle SPT4_8 FY05-06").Range("ActiveCell").PasteSpecial

so hab ich es direkt in der folie gemacht um einen wert auszuwählen und ihn in einer zelle einzufügen

ActiveSheet.Cells(13, 41).Offset(0, 1).Value = ActiveCell.Offset(1, 0).Value

das problem ich will nicht nur eine zelle verschieben sondern viele das hab ich so gemacht:

ActiveSheet.Cells(13, 41).Offset(0, 1).Value = ActiveCell.Offset(1, 0).Value
ActiveSheet.Cells(13, 41).Offset(0, 2).Value = ActiveCell.Offset(24, 0).Value
ActiveSheet.Cells(13, 41).Offset(1, 0).Value = ActiveCell.Offset(0, 1).Value
ActiveSheet.Cells(13, 41).Offset(1, 1).Value = ActiveCell.Offset(1, 1).Value
ActiveSheet.Cells(13, 41).Offset(1, 2).Value = ActiveCell.Offset(24, 1).Value
ActiveSheet.Cells(13, 41).Offset(2, 0).Value = ActiveCell.Offset(0, 2).Value
ActiveSheet.Cells(13, 41).Offset(2, 1).Value = ActiveCell.Offset(1, 2).Value
ActiveSheet.Cells(13, 41).Offset(2, 2).Value = ActiveCell.Offset(24, 2).Value
ActiveSheet.Cells(13, 41).Offset(3, 0).Value = ActiveCell.Offset(0, 3).Value
ActiveSheet.Cells(13, 41).Offset(3, 1).Value = ActiveCell.Offset(1, 3).Value
ActiveSheet.Cells(13, 41).Offset(3, 2).Value = ActiveCell.Offset(24, 3).Value
ActiveSheet.Cells(13, 41).Offset(4, 0).Value = ActiveCell.Offset(0, 4).Value
ActiveSheet.Cells(13, 41).Offset(4, 1).Value = ActiveCell.Offset(1, 4).Value
ActiveSheet.Cells(13, 41).Offset(4, 2).Value = ActiveCell.Offset(24, 4).Value
ActiveSheet.Cells(13, 41).Offset(5, 0).Value = ActiveCell.Offset(0, 5).Value
ActiveSheet.Cells(13, 41).Offset(5, 1).Value = ActiveCell.Offset(1, 5).Value
ActiveSheet.Cells(13, 41).Offset(5, 2).Value = ActiveCell.Offset(24, 5).Value
ActiveSheet.Cells(13, 41).Offset(6, 0).Value = ActiveCell.Offset(0, 6).Value
ActiveSheet.Cells(13, 41).Offset(6, 1).Value = ActiveCell.Offset(1, 6).Value
ActiveSheet.Cells(13, 41).Offset(6, 2).Value = ActiveCell.Offset(24, 6).Value
ActiveSheet.Cells(13, 41).Offset(7, 0).Value = ActiveCell.Offset(0, 7).Value
ActiveSheet.Cells(13, 41).Offset(7, 1).Value = ActiveCell.Offset(1, 7).Value
ActiveSheet.Cells(13, 41).Offset(7, 2).Value = ActiveCell.Offset(24, 7).Value
ActiveSheet.Cells(13, 41).Offset(8, 0).Value = ActiveCell.Offset(0, 8).Value
ActiveSheet.Cells(13, 41).Offset(8, 1).Value = ActiveCell.Offset(1, 8).Value
ActiveSheet.Cells(13, 41).Offset(8, 2).Value = ActiveCell.Offset(24, 8).Value
ActiveSheet.Cells(13, 41).Offset(9, 0).Value = ActiveCell.Offset(0, 9).Value
ActiveSheet.Cells(13, 41).Offset(9, 1).Value = ActiveCell.Offset(1, 9).Value
ActiveSheet.Cells(13, 41).Offset(9, 2).Value = ActiveCell.Offset(24, 9).Value

aber wie mach ich das von einer excel datei mit einer anderen excel datei

Antwort 44 von helfer_001

würde die zeile

ThisWorkbook.Sheets("Tabelle SPT4_8 FY05-06").Range("ActiveCell.Offset(1,2)").PasteSpecial

fonktionieren?????

gruß

Antwort 45 von coros

Hi Helfer_001,

das habe ich in AW 36 geschrieben. Mehr kann ich dazu nicht sagen. Warum Du immer mit ActiveCell areiten möchtest, habe ich nicht verstanden. Denn das muss man nicht, da man jede Zelle in Excel konkret ansprechen kann.

Aber das muss ich ja auch nicht, da ich ja nur auf Deine Frage Antworten soll, ohne mir dabei Gedanken zu machen. Man nennt so etwas auch "man soll funktionieren".

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 46 von helfer_001

nein warte die ist besser, fonktioniert diese zeile rein algorithmisch

Selected_Field.Offset(0, 1).copy
ThisWorkbook.Sheets("Tabelle SPT4_8 FY05-06").Range(13, 41).Offset(1, 0).PasteSpecial

gruß

Antwort 47 von helfer_001

Selected_Field

ist nur eine variable

Antwort 48 von coros

Hi Helfer_001,

ich frage ein letztes mal,

was willst Du machen?

Um eine Antwort auf Deine Fragen geben zu können, muss ich verstehen, was Du machen möchtest. Schreibe klar und deutlich, was Du erreichen möchtest, so dass man es versteht. Denn ich verstehe es nicht. Ich glaube dass ich da allerdings nicht alleine bin, denn sonst würde hier noch jemand anderes versuchen zu helfen.

Ansonsten ist für mich hier bei AW 46 wieder mal Schluss.

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 49 von helfer_001

hallo

hab ich schon
trotzdem danke für deine Bemühungen und deine Geduld
für heute komm ich klar

gruß

Supportnet / Forum / Tabellenkalkulation

speicher makro

Frage

Antwort 1 von jörg

Antwort 2 von helfer_001

Antwort 3 von helfer_001

Antwort 4 von helfer_001

Antwort 5 von coros

Antwort 6 von helfer_001

Antwort 7 von helfer_001

Antwort 8 von helfer_001

Antwort 9 von helfer_001

Antwort 10 von coros

Antwort 11 von helfer_001

Antwort 12 von helfer_001

Antwort 13 von helfer_001

Antwort 14 von helfer_001

Antwort 15 von helfer_001

Antwort 16 von helfer_001

Antwort 17 von coros

Antwort 18 von helfer_001

Antwort 19 von helfer_001

Antwort 20 von coros

Antwort 21 von CaroS

Antwort 22 von helfer_001

Antwort 23 von helfer_001

Antwort 24 von helfer_001

Antwort 25 von helfer_001

Antwort 26 von helfer_001

Antwort 27 von helfer_001

Antwort 28 von helfer_001

Antwort 29 von coros

Antwort 30 von helfer_001

Antwort 31 von coros

Antwort 32 von helfer_001

Antwort 33 von helfer_001

Antwort 34 von coros

Antwort 35 von helfer_001

Antwort 36 von coros

Antwort 37 von helfer_001

Antwort 38 von coros

Antwort 39 von helfer_001

Antwort 40 von helfer_001

Antwort 41 von coros

Antwort 42 von helfer_001

Antwort 43 von helfer_001

Antwort 44 von helfer_001

Antwort 45 von coros

Antwort 46 von helfer_001

Antwort 47 von helfer_001

Antwort 48 von coros

Antwort 49 von helfer_001

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

Ähnliche Themen:

Suche in allen vorhandenen Beiträgen: