aus Zwischenablage einfügen/umstellen
27.06.2006 22:08:11
Wolfgang
Die nachfolgenden Codes konnte ich unter Recherche entdecken und versuche sie umzustellen, allerdings bislang ohne Erfolg. Ich möchte nun folgendes erreichen:Über den Code sollen die Daten nun einerseits in eine Hilfstabelle (Aufruf) eingefügt werden, um dann dort eine schwarze Schriftfarbe zu erhalten und dann weiterhin in Zellen aufgeteilt zu werden. (Die Daten sehen so aus: Vorname Name Geburtsdatum - ohne Trennzeichen o.ä., lediglich die Spacetaste und weiterhin in weiß geschrieben). Am liebsten hätte ich gerne dabei, dass das erste Wort (Vorname) in Zelle A2, das zweite Wort in Zelle B2 und das dritte Wort (Geburtsdatum) in Zelle I2 eingefügt wird. Im vorliegenden Code sollte die Sortierung zumindest untereinander erfolgen. Irgendetwas habe ich allerdings verkehrt umgestellt. Das Geburtsdatum ist dabei in Klammern gesetzt, wie müßte der Code dabei ergänzt werden, damit die Klammern () gelöscht werden ? - Hat jemand eine Idee? - Danke schon jetzt wieder Allen, die sich mit meiner Frage beschäftigen.
Herzliche Grüße
Wolfgang
Private Sub Zwischenablage()
With Worksheets("Aufruf")
'Fügt den Inhalt der Zwischenablage in Hilfstabelle ein
Range("C2").Select
Sheets("Aufruf").Paste
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
'Sortiert nun in Zellen ein
With Worksheets("Aufruf")
Dim varList As Variant, varTemp As Variant, varT As Variant
Dim lngLast As Long, lngRow As Long, lngIndex
Dim intIndex As Integer
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row
lngIndex = 2 ' Liste beginnt in Zeile 2
varList = .Range(.Cells(lngIndex, 1), .Cells(lngLast, 3))
For lngRow = 1 To UBound(varList, 1)
varT = Split(varList(lngRow, 3), " ")
For intIndex = 0 To UBound(varT)
.Cells(lngIndex, 1) = varList(lngRow, 1)
.Cells(lngIndex, 2) = varList(lngRow, 2)
.Cells(lngIndex, 3) = varT(intIndex)
lngIndex = lngIndex + 1
Next
Next
End With
End With
End With
End Sub