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

Helfe beim Thema Teilinhalte aus Zellen löschen mit Suchen/ersetzen? in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo JamieRock, hier wie versprochen eine Lösung für das Einlesen der CSV-Datei. Code: Option Explicit Private Sub CommandButton1_Click() Dim... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Waver, 26. Oktober 2009.

Seite 2 von 4

HASSO

Hasso

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Hallo JamieRock,

hier wie versprochen eine Lösung für das Einlesen der CSV-Datei.
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 intZähler As Integer
Dim intZeile As Integer
Dim intSpalte As Integer

strDateiendung = ".csv"
strDateiname = Format(Date, "YYMMDD") & "_bestand"
'strPfad = "V:\bestand\"
strPfad = "C:\Users\Horst\Dropbox\Test\" ' 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
intZeile = intZeile + 1
strZelle = Split(strZeile, ";") ' Zeile zerlegen
For intZähler = 0 To UBound(strZelle) - 1
intSpalte = intSpalte + 1
Workbooks("Masterfile.xlsm").Worksheets("Tabelle1").Cells(intZeile, intSpalte) = strZelle(intZähler) ' Daten in Masterfile einfügen
Next intZähler
intSpalte = 0
Loop
Close #1 ' Datei schließen

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

Der Code kopiert einfach aus der CSV-Datei in die Masterfile.xlm ab Zelle A1. Das müsstest du eventuell noch anpassen. Außerdem müsste noch geprüft werden, ob die CSV-Datei überhaupt existiert.

Sieh es dir einmal an.

Hasso, 23. November 2012

#16
JAMIEROCK

JamieRock

Guten Morgen Hasso

Danke dir viel Mal, war leider Krank am Wochenende deshalb habe ich es erst jetzt gesehen...

Ich habe die Masterfile.xml Datei auf den Destktop gespeichert und den Pfad wie folgt angepasst:

C:\Users\1050\Desktop
nun habe ich aber eine Fehlermeldung:

Laufzeitfehler '53':

Datei nicht gefunden.

V:\bestand exisiterit und auch die .csv Dateien sind alle dort abgelegt.

an was kann das liegen? *Smilie

JamieRock, 25. November 2012

#17
HASSO

Hasso

Hallo JamieRock,

Ich habe die Masterfile.xml Datei auf den Destktop gespeichert und den Pfad wie folgt angepasst:

C:\Users\1050\Desktop
nun habe ich aber eine Fehlermeldung:

Laufzeitfehler '53':

Datei nicht gefunden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo hast du den Pfad angepasst?

Im Code steht unter
Code:

strPfad = "C:\Users\Horst\Dropbox\Test\" ' den Pfad entsprechend anpassen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der Pfad zur CSV-Datei - nicht zu deiner Masterfile-Datei!

Du brauchst im Code einfach nur bei Code:

'strPfad = "V:\bestand\"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

den Apostroph am Anfang löschen und die Zeile
Code:

strPfad = "C:\Users\Horst\Dropbox\Test\"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

löschen oder auskommentieren - das hatte ich nur als Pfad auf meinem Rechner benötigt, da ich ja kein Verzeichnis V:\bestand habe.

Ich hoffe, dass es dann klappt.

Hasso, 26. November 2012

#18
JAMIEROCK

JamieRock

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Hi Hasso

habe den Code wie folgt angepasst:

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 intZähler As Integer
Dim intZeile As Integer
Dim intSpalte As Integer

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
intZeile = intZeile + 1
strZelle = Split(strZeile, ";") ' Zeile zerlegen
For intZähler = 0 To UBound(strZelle) - 1
intSpalte = intSpalte + 1
Workbooks("Masterfile.xlsm").Worksheets("Tabelle1").Cells(intZeile, intSpalte) = strZelle(intZähler) ' Daten in Masterfile einfügen
Next intZähler
intSpalte = 0
Loop
Close #1 ' Datei schließen

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

Nun kommt Luafzeitfehler 6
Überlauf...

stimmt was nicht mit dem Code?

JamieRock, 26. November 2012

#19
HASSO

Hasso

Hallo JamieRock,

Nun kommt Luafzeitfehler 6
Überlauf...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In welcher Zeile kommt der denn?

Hasso, 26. November 2012

#20
JAMIEROCK

JamieRock

Sobald ich den Import starte kommt die Meldung

JamieRock, 26. November 2012

#21
INGGI

IngGi

Hallo zusammen,

ich würde auf einen Überlauf in einer der drei Integer-Variablen tippen. Versuch mal

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.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi, 26. November 2012

#22
JAMIEROCK

JamieRock

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Hallo Zusammen

Danke für den Support! Jetzt wird eine Reihe inportiert..
Habe die Printscreens hochgeladen.

LG

JamieRock, 26. November 2012

#23
MILKA

Milka

Hey JamieRock,

ich habe Probleme beim hochladen der Printscreens. Kannst du mir nochmal kurz erklären, wie ich vorgehen muss?

Danke schonmal!

Milka, 26. November 2012

#24
JAMIEROCK

JamieRock

Hallo Milka

einfach auf Antworten - Datei Anhängen / Anhänge verwalten - und hochladen *Smilie

JamieRock, 27. November 2012

#25
JAMIEROCK

JamieRock

Wisst ihr schon an was es liegt? *Smilie

JamieRock, 29. November 2012

#26
JAMIEROCK

JamieRock

Hallo Hasso IngGi seit Ihr noch aktiv dran? würde mich freuen

glg

JamieRock, 3. Dezember 2012

#27
HASSO

Hasso

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Hallo JamieRock,

lade bitte die neueste Fassung deiner Datei hoch. Sonst ist das schwer zu analysieren.

Hasso, 3. Dezember 2012

#28
JAMIEROCK

JamieRock

Hallo Hasso Anbei die CSV Datei

:-)

JamieRock, 6. Dezember 2012

#29
JAMIEROCK

JamieRock

Ich habe dir eine abgespeckte Version der Masterliste beigefügt *Smilie

Danke viel mal!

JamieRock, 6. Dezember 2012

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 4

Thema:

Teilinhalte aus Zellen löschen mit Suchen/ersetzen?

Die Seite wird geladen...

Teilinhalte aus Zellen löschen mit Suchen/ersetzen? - Similar Threads - Teilinhalte Zellen löschen
Pfad aus Zelle für Formel verwenden 2.0
in Microsoft Excel Hilfe
Pfad aus Zelle für Formel verwenden 2.0: Hallo, im Jahr 2018 gab es das Thema schon einmal: (Office 2010) - Pfad aus Zelle für Formel verwenden Durch die umfangreichen Neuerungen in Excel in den letzten Jahren mit vielen neuen...
filterergebnis in zelle anzeigen
in Microsoft Excel Hilfe
filterergebnis in zelle anzeigen: hallo ich möchte das ergebnis einer filteranwendung in einer zelle anzeigen lassen hat jemand eine idee schonmal danke gruß didje
Zahlen aus Zelle in zwei Zellen aufteilen?
in Microsoft Excel Hilfe
Zahlen aus Zelle in zwei Zellen aufteilen?: Servus, ich habe hier eine Spalte mit Zellen, in der je mehrere Zahlen stehen: 012345/6789 Diese Zahlen aus einer Zelle möchte ich auf zwei Zellen aufteilen, sodass es dann so aussieht, dass in...
aus Zahlenreihen den niedrigsten Wert ermitteln und einer Zelle zuordnen
in Microsoft Excel Hilfe
aus Zahlenreihen den niedrigsten Wert ermitteln und einer Zelle zuordnen: Hallo liebes Forum Mein Problem ist Ich muß aus einer Tabelle aus verschiedenen Zeilen und Spalten den niedrigsten Wert ermitteln und dann mit dem dazugehörigen Namen ausgeben. Ich hoffe Schon mal...
Zellbezug zu externer Datei aus Zelle
in Microsoft Excel Hilfe
Zellbezug zu externer Datei aus Zelle: Servus! Ich habe zwei Dateien: Quelle: Hier stehen meine Daten drin. Formel: Hier beziehe ich mich auf Daten in meiner Quelle. Hier exemplarisch eine einfache Formel, die sich in Formel.xlsx...
% zwischen 2 Zellen
in Microsoft Excel Hilfe
% zwischen 2 Zellen: Hallo, ich habe 2 Zellen, 1.136 -4.086 wie groß ist der Unterschied in % von -4086 auf 1136 Vielen Dank für Eure Hilfe Gruß Klaus
Innerhalb eine Spalte Teilinhalte Suchen und Ersetzen
in Microsoft Access Hilfe
Innerhalb eine Spalte Teilinhalte Suchen und Ersetzen: Hallo, ich muß leider des öfteren immer wieder auftretende Fehler in einer Spalte einer Datenbanktabelle korrigieren. Es müssen immer 4-5 (Tendenz steigend :-(( ) Teilinhalte ersetzt bzw....

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden