Office: Code mit If

Arjanitko · 9. März 2020

Hallo zusammen,

ich habe folgenden Code

Dim sFehlertext As String
Dim strDatei As String
Dim wks As Worksheet
Dim iLetzteZeile As Integer
Dim sVerkettung As String
Dim spnTrennen As String

strDatei = Application.GetOpenFilename

gsDateinamen = Mid$(strDatei, InStrRev(strDatei, "") + 1)

If strDatei Nichts Then
Set wks = Workbooks.Open(strDatei).Sheets(1)

End If

'2.Step: in der Auswahldatei werden nun folgende Schritte ausgeführt:

'In Apalte A wird eine neue Spalte hinzugefügt
Columns(spnHilfsspalte).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der in meiner .csv Auswahldatei die Kommas durch Simikolon ersetzt, damit eine Spalten Trennung erfolgt.

Dieser Vorgang findet ab gsDateinamen bis End if zur Funktion statt.

Wenn ich aber die Funktion bei einer .csv Datei anwende, in der die Kommas bereits durch Semikolon ersetzt wurden, macht es aus den einzelnen spalten wieder eie. Ich möchte aber, dass die das Makro ganz normal mit den getrennten Spalten arbeitet.

Sprich: bei den Kommas die Spaltentrennung durchführen und wenn Spalten bereits getrennt sind diese nicht wieder zusammenführen sonderen den Code einfach Fortsetzen

Hoffe ich konnte mein Problem ansatzweise Verständlich formulieren...

:)

ReginaR · 11. März 2020

Hi, kann es sein, dass da ein Teil vom Code fehlt?

Arjanitko · 11. März 2020

Hi, Regina. Hier der vollständige Code und einzelne Dinge habe ich in einem Extra Modul deklariert wie Nichts und Leer.

'1. Step: sobald auf die Schaltfläche geklickt wird, öffnet sich ein Auswahlfenster. Hier wird benötigte Datei ausgewählt
'Jede Schaltfläche benötigt einen andere Datei.

Sub EingangsdateiVorbereiten(Typ_Jahr As Integer)
'
Dim sFehlertext As String
Dim strDatei As String
Dim wks As Worksheet
Dim iLetzteZeile As Integer
Dim sVerkettung As String
Dim spnTrennen As String

strDatei = Application.GetOpenFilename

gsDateinamen = Mid$(strDatei, InStrRev(strDatei, "Backslash") + 1)

If strDatei Nichts Then
Set wks = Workbooks.Open(strDatei).Sheets(1)

Else

End If

sFehlertext = "Verarbeitung abgebrochen"

If wks Is Nothing Then
MsgBox sFehlertext
Application.ScreenUpdating = True
Exit Sub
End If

'2.Step: in der Auswahldatei werden nun folgende Schritte ausgeführt:

'In Apalte A wird eine neue Spalte hinzugefügt
Columns(spnHilfsspalte).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'In allen zellen werden die Leerzeichen durch nichts ersetzt
Range(Columns(spnKV), Columns(spnTyp)).Select
Selection.Replace What:=Leer, Replacement:=Nichts, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

'Ermitteln der letzten zeile
iLetzteZeile = Cells(MaxZelle, spnLenk).End(xlUp).Row

'Nun wird durch Kombination der Formeln "Wennfehler" und "Glätten" in Spalte A die nachfolgenden Spalten verkettet
If (Typ_Jahr = Typ_OP) Then
'Verkettung Jahre 0-3
sVerkettung = "=IFERROR(TRIM(" _
+ "RC[" + CStr(spnBR - 1) + "]&" _
+ "RC[" + CStr(spnKV - 1) + "]&" _
+ "RC[" + CStr(spnLenk - 1) + "]&" _
+ "RC[" + CStr(spnMotorbaureihe - 1) + "]&" _
+ "RC[" + CStr(spnWerk - 1) + "]&" _
+ "RC[" + CStr(spnTyp - 1) + "])," _
+ """""" + ")"

Else
'Verkettung SP
sVerkettung = "=IFERROR(TRIM(" _
+ "RC[" + CStr(spnFahrzeuge - 1) + "]&" _
+ "RC[" + CStr(spnKarosserie - 1) + "]&" _
+ "RC[" + CStr(spnTypen - 1) + "]&" _
+ "Left(RC[" + CStr(spnKundenwerk - 1) + "],5)&" _
+ "RC[" + CStr(spnAggregate - 1) + "])," _
+ """""" + ")"

End If

Cells(znrBeginnDaten, spnHilfsspalte).Select
ActiveCell.FormulaR1C1 = sVerkettung
Cells(znrBeginnDaten, spnHilfsspalte).Select
Selection.AutoFill Destination:=Range(Cells(znrBeginnDaten, spnHilfsspalte), Cells(iLetzteZeile, spnHilfsspalte))

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

Arjanitko · 9. Februar 2021

von ReginaR

Hi, kann es sein, dass da ein Teil vom Code fehlt?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hi Regina, oben ist der komplette Code

Arjanitko · 15. März 2020

Bitte um Hilfe...

Arjanitko · 9. Februar 2021

von ReginaR

Hi, kann es sein, dass da ein Teil vom Code fehlt?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Regina, Deine Expertise ist gefragt...

ReginaR · 16. März 2020

Hi, wenn ich nicht antworte, ist das in der Regel ein Zeichen, dass ich keine Antwort habe. Ich kann keine Ersetzung von Kommas durch Semikola in deinem Code erkennen. Ich bin aber für Umwandlung aus csv auch nicht gerade die Expertin.
Vielleicht hat noch jemand anderes eine Idee?
Eventuell würdest Du die Antwortquote auch dadurch erhöhen, dass Du eine csv-datei hochlädst, bei der das Problem auftaucht.

Office: Code mit If

Code mit If

Code mit If

Code mit If

Code mit If - Similar Threads - Code

Code läuft mit F8 durch, beim CommandButon nicht

Code für Zeilensprung auf 125 Ändern

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst"

PDF mit Namen,Datum speichern im Zielordner

Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen

UserForm zum bearbeiten von Tabellen und speichern