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
Excel Blattschutz & Power Query – bestimmte Zellen freigeben, aber Aktualisierung weiterhin erlauben
in Microsoft Excel Hilfe
Excel Blattschutz & Power Query – bestimmte Zellen freigeben, aber Aktualisierung weiterhin erlauben: Hallo miteinander, ich experimentiere gerade mit dem Blattschutz in Excel und bin auf ein paar Herausforderungen gestoßen, bei denen ich eure Unterstützung brauchen könnte. 1) Funktioniert schon...
Tabelle mit verbundenen Zellen zur Weiterverarbeitung umwandeln
in Microsoft Excel Hilfe
Tabelle mit verbundenen Zellen zur Weiterverarbeitung umwandeln: Hallo, ich habe eine Tabelle mit über 500.000 Zeilen. In der Tabelle sind verbundene Zellen unterschiedlicher Anzahl jeweils in den Spalten A und B und ich möchte, dass die Zellen alle nicht mehr...
Combox leere Zelle ignorieren
in Microsoft Excel Hilfe
Combox leere Zelle ignorieren: Guten Morgen, Ich steht auf dem Schlauch und komme nicht mehr weiter. Mein Problem, Auf Blatt1 habe ich 2 Comboboxen mit der ersten wähle den Typ von Maschine aus. Die Tabelle selber ist auf...
Zellen-Eintrag in Zellen-Name
in Microsoft Excel Hilfe
Zellen-Eintrag in Zellen-Name: Aus Zellen-Eintrag einen Zellen-Name erstellen: Per Makro soll aus einem Zellen-Eintrag (wenn vorhanden) ein Zellen-Name für diese Zelle erstellten (ergänzt um Text davor und dahinter) werden....
Positionsnummern Vergabe bei (Verbundene Zellen)
in Microsoft Excel Hilfe
Positionsnummern Vergabe bei (Verbundene Zellen): Nabend Allerseits, Frage: Anpassung eines bereits Geschrieben Codes, Bsp. Demo-Mappe anbei (Die Nummerierung ist im unterem Bereich den Macro's). Verwendete Elemente: Tabelle> "wsLK", Daten>...
Leere Zelle farblich füllen
in Microsoft Excel Hilfe
Leere Zelle farblich füllen: Hallo an die Excel-Experten, ich möchte eine leere Zelle mit der Farbe der darüberstehende Zelle (mit Textinhalt) automatisch befüllen. Wenn in der leeren Zelle ein Text (Name) eingefügt wird, so...
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