Hallo zusammen,
ich habe noch ein Problem, welches wahrscheinlich einfacher nicht sein kann...
Ich markiere mir zuerst einen Bereich mit Werten (Formel hinterlegt) und kopiere anschließend diesen Bereich anschließend wo anders hin als Wert.
Zur weiteren Verarbeitung müssen allerdings alle Kommas in Punkte umgewandelt werden.
Hier mein Ansatz:
Dim suche5 As Integer
Dim suche6 As Integer
Dim for_a As Integer
Dim for_b As Integer
Dim a As Long
Dim b As Integer
Sheets("Wärmeleitungstabelle für Ansys").Select
suche5 = Cells(31, 3).End(xlDown).Row
suche6 = Cells(31, 3).End(xlToRight).Column
Range(Cells(31, 3), Cells(suche5, suche6)).Select
Selection.Copy
Cells(2, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
suche5 = Cells(2, 3).End(xlDown).Row
suche6 = Cells(2, 3).End(xlToRight).Column
For for_b = 0 To suche6
b = 3 + for_b
For for_a = 0 To suche5
a = Cells(for_a + 2, b)
a = Replace(a, ",", ".")
Next for_a
Next for_b
In diesem Fall verstehe ich das Problem nicht.
Das habe ich dazu gefunden:
'Dim a As range
'Dim zelle As Range
'Set a = Range(Cells(2, 3), Cells(suche5, suche6))
'For Each zelle In a
'With zelle
'.NumberFormat = "@"
'.Value = Replace(zelle, ",", ".")
'End With
'Next zelle
funktioniert auch grundsätzlich macht mir aber leider aus 0,000001234 - 1,234E-3
für die weitere verarbeitung brauche ich allerdings die erste schreibweise.
Hoffe ihr könnt mir nochmal helfen :)
Ist wahrscheinlich wieder so ein trivialer Fehler das ich lieber schonmal in Deckung gehe :)
Eine Grundsätzliche Frage noch, mir wurde schonmal geraten alle .select weg zu lassen. Bedeutet das, dass ich diese komplett weglassen kann? Dachte das cells(2,3).select bedeutet das ich diese Zelle auswähle oder funktioniert es dann genau so mit cells(2,3)
Vielen Dank schonmal und viele Grüße
Johannes