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
2 Summen in einer Zelle
in Microsoft Excel Hilfe
2 Summen in einer Zelle: Hallo, ich möcht in einer Zelle die schräg geteilt ist zwei Summen aus unterschiedlichen Berchnungen anzeigen lassen. Beispiel: =SUMME(BA6:BA17) & " / " & SUMME(F18:V18) bekomme aber nur die...
Mal wieder Zellen trennen
in Microsoft Excel Hilfe
Mal wieder Zellen trennen: Hallo, ich habe folgendes Problem, ich habe eine Zelle "Name", diese müsste auf Nach- und Vornamen getrennt werden. Problem, der Nachname ist in Großbuchstaben und kann aus mehreren Teilen...
Tabelle mit verbunden Zellen sortieren
in Microsoft Excel Hilfe
Tabelle mit verbunden Zellen sortieren: Hallo zusammen, ich möchte eine Tabelle mit 600 Zeilen nach Spalte A sortieren. Es kommt die Fehlermeldung: "Für diese Aktion müssen alle verbundenen Zellen dieselbe Größe haben" Wie kann ich das...
Zelle in 3 Teile splitten
in Microsoft Excel Hilfe
Zelle in 3 Teile splitten: Hallo, ich habe folgenden Zelleninhalt: "Men's 100 m T11" bzw. "Woen's 100 m T11" oder "Men's Shot Put F20" das müsste in 3 Teile gesplittet werden, 1. Teil Men's / Women's 2. Teil mitte: z.b...
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
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