Hallo,
habe wieder ein kleines Problem 
Kurze Beschreibung:
Ich habe auf einem Arbeitsblatt mehrer Werte nebeneinander stehen ( Die Anzahl der Werte ist variabel) jedoch maximal 10.
Ich will die Werte in ein anderes Tabellenblatt übertragen in eine Spalte.
So sollte es dann aussehen: 55,459/ 55,483/ 55,501/…
Hätte jemand ein paar Tipps für mich?
Würde mich freuen, und schonmal vielen Dank!
anstatt spalte will ich natürlich die Werte in einer Zelle ausgeben!
Ich habe auf einem Arbeitsblatt mehrer Werte nebeneinander
stehen ( Die Anzahl der Werte ist variabel) jedoch maximal 10.
Ich will die Werte in ein anderes Tabellenblatt übertragen in
eine Spalte.
So sollte es dann aussehen: 55,459/ 55,483/ 55,501/…
Hallo faro,
such dir eine Variante aus:
Option Explicit
Sub Test()
Call TestDatenErzeugen
Call Spezialkopieren
Call Spezialkopieren2
End Sub
Sub TestDatenErzeugen()
With Worksheets("Tabelle1")
.Range("A1:I1").Value = Array("a", , "b", , "c", "d", , "e", "f")
End With
End Sub
'
Sub Spezialkopieren()
Dim wks2 As Worksheet, Spa As Long
Set wks2 = Worksheets("Tabelle2")
wks2.Cells(1, 1).Value = ""
With Worksheets("Tabelle1")
For Spa = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
wks2.Cells(1, 1).Value = wks2.Cells(1, 1).Value & "/" & .Cells(1, Spa).Value
Next Spa
wks2.Cells(1, 1).Value = Mid(wks2.Cells(1, 1).Value, 2)
End With
End Sub
Sub Spezialkopieren2()
Dim wks2 As Worksheet, Spa As Long
Set wks2 = Worksheets("Tabelle2")
wks2.Cells(2, 1).Value = ""
With Worksheets("Tabelle1")
For Spa = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
If .Cells(1, Spa).Value "" Then
wks2.Cells(2, 1).Value = wks2.Cells(2, 1).Value & "/" & .Cells(1, Spa).Value
End If
Next Spa
wks2.Cells(2, 1).Value = Mid(wks2.Cells(2, 1).Value, 2)
End With
End Sub
Gruß
Reinhard
Grüezi faro
Ich habe auf einem Arbeitsblatt mehrer Werte nebeneinander
stehen ( Die Anzahl der Werte ist variabel) jedoch maximal 10.
Ich will die Werte in ein anderes Tabellenblatt übertragen in
eine Spalte.
So sollte es dann aussehen: 55,459/ 55,483/ 55,501/…Hätte jemand ein paar Tipps für mich?
Dir könnte hier auch die Funktion VERKETTEN() weiterhelfen oder Du verwendest gleich den ‚&‘-Operator in der Zielzelle.
Mit freundlichen Grüssen
Thomas Ramel
Hey habe es nach langem überlegen hinbekommen
hab mein letztes Programm vor über einem Jahr geschrieben, da sind meine Kenntnisse doch ein wenig eingerostet
So hier meine Lösung die einwandfrei funktioniert!
Danke für eure Hilfe!
Cells(1, letztespalte + 1).Select: ActiveCell.FormulaR1C1 = „Messwerte“
Dim a As String
If spalten