Sry Folks, aber als Anfänger habe ich das recht nochmals auf mein Thema zurück zu kommen
UserForm funktionier einwandfrei, öffnet sich, wählt Datei in textbox, alles OK.
Wenn ich aber auf Insert draufdrücke um die txt oder csv Datei in ein Excel Arbeitsblatt einzufügen, geht es nicht weiter.
Sicher fählt hier ein Code oder ein befehl, den ich als anfänger nicht aufstöbern kann.
Um mich kurz zu halten, kann mir einer Helfen das die UF mit drücken auf button “Insert“ der Inhalt von einer txt oder csv datei sich in ein Arbeitsblatt einfügt?
[
attachment=37432]
Ps. Großes Dankeschön an
mumpel,
Werner.M,
schauan,
Heino und speziel an
Klaus-Dieter.
Ohne euch wäre ich sicher nicht so weit gekommen.
Danke
Niko
Hallo Niko,
auf ein Arbeitsblatt der Datei mit dem UserForm?
Hallöchen,
Zitat:Sicher fählt hier ein Code oder ein befehl, den ich als anfänger nicht aufstöbern kann.
für die Insert-Taste ist kein Code programmiert. Der Coderahmen dafür sieht recht leer aus
Code:
Private Sub CommandButton1_Click()
End Sub
War da schon mal ein Code drin oder anders gefragt, hattest Du schon mal einen Code zum Dateien einfügen?
Du brauchst übrigens keinen neuen Thread anzufangen, wenn die Frage noch nicht beantwortet ist. Es reicht, wenn Du nachfragst ...
Die antwort zur deiner Frage ist leider Nein.
Darum geht es mir eigendlich, wie ich schon beschrieben habe ( Wahrscheinlich nicht eindeutig genug).
Wie triggere ich die Befehle von Excel, so dass es mit dem drücken des Buttons „Insert“ die Datei in dem Arbeitsblatt sich einfügt?
Danke,
Niko
Hallöchen,
| Arbeitsblatt mit dem Namen 'Start' |
| A | B | C | D | E | F |
| 1 | | | | | | |
| 2 | | | | | | |
| 3 | | | | | | |
| 4 | | | | | | |
| 5 | | | | | | |
| 6 | | | | | | |
| 7 | | | | | | |
| 8 | | | | | | |
| 9 | | | | | | |
| Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
| Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg |
ok, und was soll nun wo eingefügt werden? Mehr Daten haben wir im Moment nicht ...
Es soll eine X ausgewählte txt oder csv datei, die aus der UF ausgewählt wurde mit dem Drücken auf Importieren den inhalt im arbeitsblatt einfügen.
Wenn eine txt datei oder csv verlangt wird kann ich noch herstellen, wenn dass das problem sein sollte.
[
attachment=37469]
[
attachment=37470]
Danke,
Niko
Hat jemand eine Idee? oder soll es in die Tone! ...wäre schade
Hallöchen,
aufgezeichnet hab ich das
Code:
Sub Makro1()
'
' Makro3 Makro
'
'
Workbooks.Open Filename:="C:\Test\TEST_TEXT.csv"
Columns("A:A").Select
Selection.Copy
Windows("Mappe1").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
und dann bisschen was geändert
Code:
Sub DatenHolen()
Dim strDatei$
'Datei Oeffnen Dialog aufrufen
strDatei = Application.GetOpenFilename
'Wenn was gewaehlt wurde, dann
If strDatei <> False Then
'gewaehlte Datei oeffnen
Workbooks.Open Filename:=strDatei
'Spalte A kopieren - sind's mehr, dann erweitern
Columns("A:A").Copy
'Zurueck zur eigenen Mappe
Windows("MeineMappe").Activate
'Daten einfuegen
Range("A1").PasteSpecial
'alternativ Wenn nix gewaehlt wurde
Else
'Makro verlassen
Exit Sub
'Ende Wenn was gewaehlt wurde, dann
End If
End Sub
