Office: (Office 2007) Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

JamieRock · 24. Dezember 2012

Hier kannst du es runterladen *biggrin.gif* dann hast du die volle Datei!

http://www.yayay.ch/download/Bestellung.rar

JamieRock · 24. Dezember 2012

Hassoooo *Smilie

ich glaube ich habs geschafft!!! *Smilie hab einfach mal variationen ausprobiert!

Code:

Private Sub CommandButton1_Click()
Dim rngZelle As Range

For Each rngZelle In Worksheets("Bestellung").Range("D5:DD5", "D464:DD464")
If rngZelle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hasso · 24. Dezember 2012

Hallo JamieRock,

ersetz mal das Semikolon in Code:

D5: DC5;D464: DC464"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

durch ein Komma.
Wir sind hier in VBA und nicht in Excel-Formeln.

JamieRock · 24. Dezember 2012

Hi Hasso

das habe ich gemacht, den Code habe ich damals von dir so erhalten.. im Sorry *Smilie

Hasso · 24. Dezember 2012

Das ist ja peinlich für mich *grins
Hauptsache, es funktioniert jetzt wenigstens.

JamieRock · 24. Dezember 2012

hihi macht doch nichts.. ich bin dankbar um jede Hilfe! Bin kein Profi!!
Und du hast mir schon so einiges geholfen!

Wenn wir nun noch den import schaffen.. dann ist mein Jahr gerettet! *Smilie

Hasso · 25. Dezember 2012

Hallo JamieRock,

was funktioniert denn genau beim Import noch nicht?

JamieRock · 26. Dezember 2012

Guten Morgen Hasso

Ich hoffe du konntest deine Weihnachtstage geniessen und etwas feiern. *Smilie
Der Rotmarkierte Teil, ist laut VBA falsch. immer wenn ich auf Debuggen drücke kommt die Zeile gelbmarkiert.

Zur Zeit importiert er keine Daten..

Ich habe dir zweit Testfiles im Upload.

lg JamieRock

Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim rngBereich As Range
Dim rngZelle As Range
Dim strDateiname As String
Dim strDateiendung As String
Dim strPfad As String
Dim strZeile As String
Dim strZelle
Dim lngZähler As Long
Dim lngZeile As Long
Dim lngSpalte As Long

strDateiendung = ".csv"
strDateiname = Format(Date, "YYMMDD") & "_bestand"

strPfad = "V:\bestand\" ' den Pfad entsprechend anpassen

Open strPfad & strDateiname & strDateiendung For Input As #1 ' Datei öffnen
Do While Not EOF(1) ' Datei durchlaufen bis das Ende erreicht ist
Line Input #1, strZeile ' Zeile in Variable strZeile speichern
lngZeile = lngZeile + 1
strZelle = Split(strZeile, ";") ' Zeile zerlegen
For lngZähler = 0 To UBound(strZelle) - 1
lngSpalte = lngSpalte + 1
Workbooks("Masterfile.xlsm").Worksheets("Tabelle1").Cells(lngZeile, lngSpalte) = strZelle(lngZähler) ' Daten in Masterfile einfügen
Next lngZähler
lngSpalte = 0
Loop
Close #1 ' Datei schließen

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hasso · 26. Dezember 2012

Hallo JamieRock,

bei mir gibt es keinen Fehler. Dann kann es eigentlich nur sein, dass keine Datei mit dem richtigen Namen an dem angegebenen Ort liegt.

Dann geh den Code mit F8 noch mal Schritt für Schritt durch und lass dir im Direktfenster den Wert für Code:

strPfad & strDateiname & strDateiendung
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ausgeben. Code:

strPfad = "V:\bestand\" ' den Pfad entsprechend anpassen
debug.Print strPfad & strDateiname & strDateiendung
Open strPfad & strDateiname & strDateiendung For Input As #1 ' Datei öffnen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann überprüfe genau, ob das der korrekte Name und Pfad deiner csv-Datei ist.

P.S.:

Im Code steht übrigens immer noch Code:

Workbooks("Masterfile.xlsm").Worksheets("Tabelle1").Cells(lngZeile, lngSpalte) = strZelle(lngZähler)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Teilinhalte aus Zellen löschen mit Suchen/ersetzen? - Similar Threads - Teilinhalte Zellen löschen

Pfad aus Zelle für Formel verwenden 2.0

filterergebnis in zelle anzeigen

Zahlen aus Zelle in zwei Zellen aufteilen?

aus Zahlenreihen den niedrigsten Wert ermitteln und einer Zelle zuordnen

Zellbezug zu externer Datei aus Zelle

% zwischen 2 Zellen

Innerhalb eine Spalte Teilinhalte Suchen und Ersetzen