Vermutlich ist es eine ganz einfache Sache, aber ich finde keine Lösung.
Ich habe zwei EXEL Tabellen, und in der einen würde ich gerne ein Makro ablaufen lassen, das Daten aus bestimmten Zellen der anderen Exeltabelle holt.
Kann mir jemand helfen?
Bei der Gelegenheit, gibt es eine Möglichkeit eine TXT Datei zu erstellen, in der ich Inhalte per Makro aus meiner Tabelle schreibe?
Danke
Curu
Beispiel:
In Zelle A1 in Tabelle1 (dort befindest du dich gerade und dort läuft auch dein Makro) soll der Wert der Zelle A1 in Tabelle2 erscheinen:
Cells(1,1) = sheets("Tabelle2).cells(1,1)
Gruß
Dylan
Sry, hab ich gestern wohl nicht richtig gelesen. Wenn Tabelle2 in anderer Excel-Tab im selben Verzeichnis ist, dann geht das so:
Cells(1,1).Select
ActiveCell.FormulaR1C1 = „=[Mappe2.xls]Tabelle2!R1C1“
Nutze doch einach Extras Makros aufzeichnen und schau dir dort den Code an.
Danke schonmal für die Hilfe, aber leider weiss ich nicht, wo ich meine Variable hinschreibe, und die aktive Zelle aus der ich lesen kann.
Kannst du das vielleicht nochmal auf folgendes Beispiel anwenden:
In Exeldatei1 läuft bereits ein Makro
innerhalb des Makros soll aus Exeldatei2 Zelle A1 der Wert ausgelesen werden, und in die Variable „Kuh“ gespeichert werden
Mit der Variable Kuh wird dann weiter gerechnet.
Bei Makros aufzeichnen zeigt er mir, wie ich erst eine andere Datei öffnen muss, und dann aus dem anderen Fenster lese, aber eigentlich wollte ich die Daten aus der Datei lesen, ohne diese öffnen zu müssen.
Danke nochmal
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
sry für die späte Antwort, war übers Wochenende weggefahren.
Versuchs mal hiermit:
Sub kuh()
Dim kuh As String
Range(„A1“).Select
ActiveCell.FormulaR1C1 = „=[excel2.xls]Tabelle1!R1C1“
kuh = Cells(1, 1)
MsgBox (kuh) ’ hier ist kuh eine Variable
End Sub
Klappt bei mir einwandfrei
Gruß Dylan
Juchuh, danke, hat alles geklappt
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]