Hallo Welt,
man liest ja immer wieder, dass man .select und .activate vermeiden soll. In meinem Fall ist der Geist zwar willig, aber das Fleisch ist schwach. Ich habe folgenden Code den ich gerne ohne activate verwenden würde was mir jedoch nicht gelingt:
Wenn ich das Activate weglasse bekomme ich die Fehlermeldung,dass das Autofill dann nicht funktioniert. Kann mir jemand sagen wie ich Autofill nutzen kann ohne Activate?
Der 2. Teil des Codes mit der Forschleife stammt aus google. Wie muss ich IsError anpassen das es ohne Activate läuft?
Hoffe jemand kann mir helfen. Würde mich auch über ein paar erklärende Worte dazu freuen, damit ich nächstes mal nicht den gleichen Fehler wieder mache.
Gruß (und danke Schon mal)
Darky
man liest ja immer wieder, dass man .select und .activate vermeiden soll. In meinem Fall ist der Geist zwar willig, aber das Fleisch ist schwach. Ich habe folgenden Code den ich gerne ohne activate verwenden würde was mir jedoch nicht gelingt:
Visual Basic-Quellcode
- n = Sheets("Rohdaten").Cells(Cells.Rows.Count, 1).End(xlUp).Row '1=Spalte ASheets("Datengrundlage").Visible = True
- Sheets("Datengrundlage").Activate
- Sheets("Datengrundlage").Cells(3, x).FormulaR1C1 = _
- "=ROUND(VALUE(SUBSTITUTE(TRIM(MID(TRIM(Rohdaten!R[-1]C),1,SEARCH("" "",TRIM(Rohdaten!R[-1]C),1))),""."","","")),3)"
- Sheets("Datengrundlage").Cells(3, x + 1).FormulaR1C1 = _
- "=ROUND(VALUE(SUBSTITUTE(TRIM(MID(TRIM(Rohdaten!R[-1]C[-1]),SEARCH("" "",TRIM(Rohdaten!R[-1]C[-1]),1),20)),""."","","")),3)"
- Sheets("Datengrundlage").Range(Cells(3, x), Cells(3, x + 1)).AutoFill Destination:=Sheets("Datengrundlage").Range(Cells(3, x), Cells(n, x + 1)), Type:=xlFillDefault
- For s = n - 200 To n + 200
- If IsError(Cells(s, x).Value) Then
- Cells(s, x).ClearContents 'Delete
- End If
- Next
- Worksheets("Rohdaten").Select
Wenn ich das Activate weglasse bekomme ich die Fehlermeldung,dass das Autofill dann nicht funktioniert. Kann mir jemand sagen wie ich Autofill nutzen kann ohne Activate?
Der 2. Teil des Codes mit der Forschleife stammt aus google. Wie muss ich IsError anpassen das es ohne Activate läuft?
Hoffe jemand kann mir helfen. Würde mich auch über ein paar erklärende Worte dazu freuen, damit ich nächstes mal nicht den gleichen Fehler wieder mache.
Gruß (und danke Schon mal)
Darky
