Zellen kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub GHWildUmstellen() Dim GHAktZelle As Range Range("A1").Select Set GHAktZelle = Selection While GHAktZelle.Row "" Then Range(GHAktZelle.Offset(1, 0), GHAktZelle.Offset(5, 0)).EntireRow.Insert Range(GHAktZelle.Offset(0, 2), GHAktZelle.Offset(0, 6)).Copy GHAktZelle.Offset(1, 1).PasteSpecial Transpose:=True End If GHAktZelle.End(xlDown).Select Set GHAktZelle = Selection Wend End Sub

Hallo Günther,
Vielen Dank, es funktioniert einwandfrei.
Ich habe eigentlich noch eine Frage angehende das importieren von eine .csv Datei.
Mit unterstehenden Code lade ich die .csv Datei in Excel hoch ohne Problemen.
Wie bekomm ich es das man das Pfad der Datei auswählen kann über den Code
Application.Dialogs(xlDialogOpen).Show "*.csv"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Team meeting Kim & Koen\Registratie\Team Meeting met Kim & Koen.csv", _
Destination:=Range("$A$4"))
.Name = "Team Meeting met Kim & Koen"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

OK, Habe es slbst gefunden.
Code lautet:
Dim fName As Variant
fName = Application.GetOpenFilename()
If fName False Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & fName _
, Destination:=Range("A4"))
.Name = "Team Meeting met Kim & Koen"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Gruess, Benny

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread