|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Excel VBA mehrere Dim from As Excel.Range |
19.10.2020 22:10:30 |
ch79 |
|
|
|
19.10.2020 23:22:01 |
ralf_b |
|
|
|
20.10.2020 06:42:47 |
Gast18532 |
|
|
|
20.10.2020 08:58:10 |
ralf_b |
|
|
|
20.10.2020 17:54:22 |
Gast68006 |
|
|
|
20.10.2020 18:38:43 |
ralf_b |
|
|
|
20.10.2020 19:16:39 |
Gast59744 |
|
|
|
21.10.2020 01:23:22 |
ralf_b |
|
|
|
19.10.2020 23:22:42 |
volti |
|
|
|
20.10.2020 06:38:45 |
Gast19855 |
|
|
|
19.10.2020 23:25:55 |
Gast46842 |
|
|
|
20.10.2020 06:41:05 |
Gast65787 |
|
|
Von:
ch79 |
Datum:
19.10.2020 22:10:30 |
Views:
1259 |
Rating:
|
Antwort:
|
Thema:
Excel VBA mehrere Dim from As Excel.Range |
|
Hallo
Kann man mehrere "Dim from As Excel.Range" Befehle in einem Makro haben? Brauche es für unterschiedliche Tabellenblätter.
Bei mir kommt immer ein Fehler bei der 2. Dim from as Excel.Range abfrage?
Fehlermeldung: Mehrfachdeklaration im aktuellen Gültigkeitsbereich
Kann man ev. das "Next" abschliessen?
Der "DIM" Teil des Makros sieht wie folg aus:
Dim from As Excel.Range
Set from = Sheets("50m").Range("v2:ac2")
Dim too As Excel.Range
Set too = Sheets("50m").Range("I5:I12")
Dim Cell As Excel.Range
For Each Cell In from
Cell.Copy
Dim thing As Excel.Range
For Each thing In too
If thing.EntireRow.RowHeight > 0 Then
thing.PasteSpecial xlPasteValues
Set too = thing.Offset(1).Resize(too.Rows.Count)
Exit For
End If
Next
Next
Wer kann mir da bitte helfen?
Grüsse
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Excel VBA mehrere Dim from As Excel.Range |
19.10.2020 22:10:30 |
ch79 |
|
|
|
19.10.2020 23:22:01 |
ralf_b |
|
|
|
20.10.2020 06:42:47 |
Gast18532 |
|
|
|
20.10.2020 08:58:10 |
ralf_b |
|
|
|
20.10.2020 17:54:22 |
Gast68006 |
|
|
|
20.10.2020 18:38:43 |
ralf_b |
|
|
|
20.10.2020 19:16:39 |
Gast59744 |
|
|
|
21.10.2020 01:23:22 |
ralf_b |
|
|
|
19.10.2020 23:22:42 |
volti |
|
|
|
20.10.2020 06:38:45 |
Gast19855 |
|
|
|
19.10.2020 23:25:55 |
Gast46842 |
|
|
|
20.10.2020 06:41:05 |
Gast65787 |
|
|