Ausgewählte Text (csv oder txt) Datei in UF lässt sich nicht im Blatt eifügen

[Niko]

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?



  Test userform_CSV_Spezial-1.xlsm (Größe: 24,29 KB / Downloads: 6)

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      

[Klaus-Dieter]

Hallo Niko,

auf ein Arbeitsblatt der Datei mit dem UserForm?

[Niko]

Ja

[schauan]

Hallöchen,

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 ...

[Niko]

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      

[Niko]

Irgendein Vorschlag?    

Danke,

Niko    
Der Anfänger

[schauan]

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 ...

[Niko]

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.



  TEST_TEXT.txt (Größe: 266 Bytes / Downloads: 3)


  TEST_TEXT.csv (Größe: 418 Bytes / Downloads: 3)


Danke,

Niko  

[Niko]

Hat jemand eine Idee? oder soll es in die Tone! ...wäre schade

[schauan]

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