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
Eine Zelle blinken lassen
in Microsoft Excel Hilfe
Eine Zelle blinken lassen: Wünsche einen schönen Sonntag in die Runde. Ich habe einen VBA Code, um eine Zelle blinken zu lassen. Nun kann ich das Blinken nur im VBA Code starten. Ich hatte mir vorgestellt, dass wenn ich das...
Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle
in Microsoft Excel Hilfe
Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle: Moin Allerseits, mit Verlaub ich bin seit 5 Jahren aus der Materie raus, fange somit von Vorne an. Frage: Anpassung eines bereits Geschrieben Codes. Verwendete Elemente: Quelle> Tabelle "wsLK",...
Hochzählen Zelle Excel oder Office365?
in Microsoft Excel Hilfe
Hochzählen Zelle Excel oder Office365?: Hallo zusammen Ich möchte im Excel eine Spalte mit den Schaltknopf hochzählen. Lokal funktioniert es einwandfrei, wie könnte ich es lösen da verschiedene Personen die gleiche Datei öffnen müssen,...
Zelleninhalte in andere Zelle mit Komma getrennt
in Microsoft Excel Hilfe
Zelleninhalte in andere Zelle mit Komma getrennt: Hallo, ich weiß nicht, ob ich im EXCEL Bereich richtig bin, da es sich um eine Tabelle aus einer Access Datenbank handelt. Allerdings müsste ich "nur" in dieser Tabelle einiges ändern: Für jeden...
In einer Zelle Zahlen erkennen und trennen
in Microsoft Excel Hilfe
In einer Zelle Zahlen erkennen und trennen: Guten Tag zusammen Ich habe folgende Daten in einer Zelle und muss diese in mehrere Spalten aufteilen, insbesondere benötige ich die Zahl, die hinter dem X steht PKP210SX90AOS08...
Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?
in Microsoft Excel Hilfe
Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?: Hallo, ich bin ja gerade dabei ein Bestellformular mit Excel zu realisieren. Das ganze sieht soweit auch schon sehr gut aus und funktioniert weitgehendst. Die Textfelder sind nun alle verlinkt...
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