16
VBA Excel - Text generieren
Hallo an alle,
ich bin gerade am versuchen in VBA ein Script zu erstellen, das automatisch MS Excel öffnet und einen beliebigen Text generiert.
Jedoch finde ich nicht so wirklich einen Anfang. Es hapert schon beim Erstellen eines Files.
Ich bin über jeden kleinen Tipp dankbar.
Gruß,
unkwownuser
ich bin gerade am versuchen in VBA ein Script zu erstellen, das automatisch MS Excel öffnet und einen beliebigen Text generiert.
Jedoch finde ich nicht so wirklich einen Anfang. Es hapert schon beim Erstellen eines Files.
Ich bin über jeden kleinen Tipp dankbar.
Gruß,
unkwownuser
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Kommentar vom Moderator Biber am 14.08.2009 um 17:32:55 Uhr
Eigentlich hätte ich diesem Beitrag -schon weil voraussichtlich ein Dutzend Nachfragen zur Problemklärung nötig sein werden - sofort in die Tonne kloppen sollen.
Zu spät - aber bewerten werde ich noch.
Zu spät - aber bewerten werde ich noch.
Content-ID: 122771
Url: https://administrator.de/contentid/122771
Ausgedruckt am: 22.11.2024 um 19:11 Uhr
16 Kommentare
Neuester Kommentar
Moin unkwownuser,
willkommen im Forum.
Entweder "sich freuen über" oder "dankbar sein für" etwas.
Kannst Du mal bitte erläutern, was Du mit "einen beliebigen Text generieren" zu skizzieren versuchst?
Soll dieser Text in eine neue Arbeitsmappe oder auf den Bildschirm oder als Menetekel an die Wand geschrieben werden?
Grüße
Biber
willkommen im Forum.
Ich bin über jeden kleinen Tipp dankbar.
Niemand kann über einen Tipp dankbar sein.Entweder "sich freuen über" oder "dankbar sein für" etwas.
Kannst Du mal bitte erläutern, was Du mit "einen beliebigen Text generieren" zu skizzieren versuchst?
Soll dieser Text in eine neue Arbeitsmappe oder auf den Bildschirm oder als Menetekel an die Wand geschrieben werden?
Grüße
Biber
Hi Biber,
ich mein damit, dass das Script Excel öffnet, danach einen freien Text generiert und diesen abspeichert.
Nur lässt sich das nicht so richtig verwirklichen.
Gruß,
unkwownuser
ich mein damit, dass das Script Excel öffnet, danach einen freien Text generiert und diesen abspeichert.
Nur lässt sich das nicht so richtig verwirklichen.
Gruß,
unkwownuser
Hallo unnownuser und auch von mir ein Willkommen!
Wie "frei" soll denn der Text sein, und seit wann ist "Textverarbeitung" eine Excel-Spezialität?
Soll auch der Dateiname und der Speicherort vom Script "frei" gewählt werden? Möchtest Du in diesem Fall einen Hinweis darauf, wo das Ergebnis zu finden ist?
Grüße
bastla
Wie "frei" soll denn der Text sein, und seit wann ist "Textverarbeitung" eine Excel-Spezialität?
Soll auch der Dateiname und der Speicherort vom Script "frei" gewählt werden? Möchtest Du in diesem Fall einen Hinweis darauf, wo das Ergebnis zu finden ist?
Grüße
bastla
Hi bastla,
es geht mir nur darum, da ich später das Script noch kombinieren muss und dafür brauch ich Excel.
Also nochmal zu deiner Frage bastla. Der Text sollte grad generiert werden, nach dem Zufallsprinzip.
Zu deiner zweiten Frage, da stelle ich mir einen Dialog vor. Das ist aber kein Problem
Gruß,
unkwownuser
es geht mir nur darum, da ich später das Script noch kombinieren muss und dafür brauch ich Excel.
Also nochmal zu deiner Frage bastla. Der Text sollte grad generiert werden, nach dem Zufallsprinzip.
Zu deiner zweiten Frage, da stelle ich mir einen Dialog vor. Das ist aber kein Problem
Gruß,
unkwownuser
Hallo unknownuser!
Magst Du nicht doch etwas weiter ausholen und erklären, von welcher Office-Anwendung (Excel oder nicht Excel) aus (da es ja VBA sein soll) gestartet wird?
Sofern es nicht der Geheimhaltung unterliegt könntest Du vielleicht sogar auch noch etwas über Stellenanzahl und Zeichenvorrat des Zufallstextes verraten ...
Grüße
bastla
Magst Du nicht doch etwas weiter ausholen und erklären, von welcher Office-Anwendung (Excel oder nicht Excel) aus (da es ja VBA sein soll) gestartet wird?
Sofern es nicht der Geheimhaltung unterliegt könntest Du vielleicht sogar auch noch etwas über Stellenanzahl und Zeichenvorrat des Zufallstextes verraten ...
Grüße
bastla
Hi bastla,
es soll natürlich von Excel aus gestartet werden.
Der Zufallstext hat bis jetzt noch keine Stelleanzahlen und Zeichenvorrate. Es muss auch nicht unbedingt ein Zufallstext sein. Man kann es auch mit einem vorgegeben Text im Script hinterlegen.
Gruß,
unkwownuser
es soll natürlich von Excel aus gestartet werden.
Der Zufallstext hat bis jetzt noch keine Stelleanzahlen und Zeichenvorrate. Es muss auch nicht unbedingt ein Zufallstext sein. Man kann es auch mit einem vorgegeben Text im Script hinterlegen.
Gruß,
unkwownuser
Hallo unknownuser!
Dann bietet sich also vielleicht eher die folgende Problembeschreibung an:
In Excel soll per VBA eine neue Arbeitsmappe erzeugt, in Zelle A1 ein (noch zu bestimmender )Text geschrieben und diese neue Mappe (unter Verwendung eines Dialoges) gespeichert werden.
Richtig?
Grüße
bastla
Dann bietet sich also vielleicht eher die folgende Problembeschreibung an:
In Excel soll per VBA eine neue Arbeitsmappe erzeugt, in Zelle A1 ein (noch zu bestimmender )Text geschrieben und diese neue Mappe (unter Verwendung eines Dialoges) gespeichert werden.
Richtig?
Grüße
bastla
Hi unkwownuser!
Kannst du das Thema nicht etwas genauer beschreiben?
Was bedeutet ein "beliebiger Zufallstext"? Was verstehst du darunter?
Soll der Text in eine Tabelle geschrieben werden oder wie darf man das verstehen?
Werd bitte mal etwas detailierter, damit wir dir helfen können
Kannst du das Thema nicht etwas genauer beschreiben?
Was bedeutet ein "beliebiger Zufallstext"? Was verstehst du darunter?
Soll der Text in eine Tabelle geschrieben werden oder wie darf man das verstehen?
Werd bitte mal etwas detailierter, damit wir dir helfen können
Hi bastla,
genauso kann man sich das vorstellen.
Gruß,
unkwownuser
genauso kann man sich das vorstellen.
Gruß,
unkwownuser
Hi Lionheart,
also den Zufallstext kann man auch durch einen einfachen vorgegeben Text im Script hinterlegen.
Der Text soll schon in eine Tabelle geschrieben werden.
Gruß,
unkwownuser
also den Zufallstext kann man auch durch einen einfachen vorgegeben Text im Script hinterlegen.
Der Text soll schon in eine Tabelle geschrieben werden.
Gruß,
unkwownuser
Na dann:
Grüße
bastla
Sub NeuMitText()
DerText = "Ein Text"
Workbooks.Add
Range("A1") = DerText
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsoft Excel Arbeitsmappe (*.xls), *.xls")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs fileSaveName
End If
ActiveWindow.Close
End Subbastla
Hi bastla,
das sieht sehr gut aus.
Ich habe immer vergessen die Arbeitsmappe zu erstellen. Aus Fehlern lernt man.
Jetzt habe ich noch eine Frage:
Wie macht man es am besten, dass das Script, Excel automatisch öffnet und die Sub ausführt.
Mit der Shell-Funktion will es nicht so wirklich funktionieren.
das sieht sehr gut aus.
Ich habe immer vergessen die Arbeitsmappe zu erstellen. Aus Fehlern lernt man.
Jetzt habe ich noch eine Frage:
Wie macht man es am besten, dass das Script, Excel automatisch öffnet und die Sub ausführt.
Mit der Shell-Funktion will es nicht so wirklich funktionieren.
Hallo unknownuser!
Wieso sollte ein in Excel gestartetes Script Excel öffnen?
Vielleicht beschreibst Du Dein ganzes Vorhaben mal etwas genauer ...
Grüße
bastla
Wieso sollte ein in Excel gestartetes Script Excel öffnen?
Vielleicht beschreibst Du Dein ganzes Vorhaben mal etwas genauer ...
Grüße
bastla
Hi bastla,
ich mach mal ein kleines Beispiel:
Ich habe eine *.vbs-Datei. Diese Datei soll Excel öffnen und die Sub ausführen.
In diesem Falle einen Text schreiben und abspeichern.
Dies ist doch auch möglich oder täusche ich mich da?
Gruß,
unkwownuser
ich mach mal ein kleines Beispiel:
Ich habe eine *.vbs-Datei. Diese Datei soll Excel öffnen und die Sub ausführen.
In diesem Falle einen Text schreiben und abspeichern.
Dies ist doch auch möglich oder täusche ich mich da?
Gruß,
unkwownuser
Hallo unknownuser!
... und wieso sagst Du nicht gleich, was Du eigentlich willst?
Grüße
bastla
... und wieso sagst Du nicht gleich, was Du eigentlich willst?
DerText = "Ein Text"
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Add
XL.Range("A1") = DerText
XL.Quitbastla
Hi bastla,
das sieht spitze aus.
Genau sowas hatte ich mir vorgestellt.
Ich danke dir vielmals für deine Hilfe.
Gruß,
unkwownuser
das sieht spitze aus.
Genau sowas hatte ich mir vorgestellt.
Ich danke dir vielmals für deine Hilfe.
Gruß,
unkwownuser
