|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.09.2011 11:55:47 |
Nico Schulz |
|
|
|
16.09.2011 14:33:53 |
Gast93970 |
|
|
|
19.09.2011 08:34:25 |
Nico Schulz |
|
|
|
19.09.2011 01:17:09 |
till |
|
|
 Copy Range If - Bedingtes kopieren |
19.09.2011 08:45:31 |
Nico Schulz |
|
|
|
21.09.2011 00:01:50 |
Till |
|
|
|
21.09.2011 00:04:24 |
till |
|
|
|
21.09.2011 07:25:32 |
Nico Schulz |
|
|
|
21.09.2011 08:56:35 |
Till |
|
|
|
21.09.2011 08:59:04 |
Nico Schulz |
|
|
Von:
Nico Schulz |
Datum:
19.09.2011 08:45:31 |
Views:
1134 |
Rating:
|
Antwort:
|
Thema:
Copy Range If - Bedingtes kopieren |
|
Hallo Till,
Du hast die Problemstellung vollkommen richtig erkannt! Die Funktion soll nach "i.O." filtern und dann die komplette Range("A70:G2500") kopieren und an der Stelle BJ70 einfügen.
Dein Code ist mir so noch unbekannt, aber schaut gut aus und läuft bis zur Zeile 6 auch gut - dann kommt allerdings die Fehlermeldung 13 ins Spiel.
Ich habe versucht durch Zuweisung von Datentypen diesen zu vermeiden - leider klappt dies nicht so wie ich mir dachte.
Dim Range As Integer
Dim Zeile As Integer
Dim Z As Integer
Dim r As Integer
With Sheets(6)
Set Rng = .Range("H1:H2500")
...
...
Ideen?
*Grüße* Nico
|
- 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
|
|
16.09.2011 11:55:47 |
Nico Schulz |
|
|
|
16.09.2011 14:33:53 |
Gast93970 |
|
|
|
19.09.2011 08:34:25 |
Nico Schulz |
|
|
|
19.09.2011 01:17:09 |
till |
|
|
Copy Range If - Bedingtes kopieren |
19.09.2011 08:45:31 |
Nico Schulz |
|
|
|
21.09.2011 00:01:50 |
Till |
|
|
|
21.09.2011 00:04:24 |
till |
|
|
|
21.09.2011 07:25:32 |
Nico Schulz |
|
|
|
21.09.2011 08:56:35 |
Till |
|
|
|
21.09.2011 08:59:04 |
Nico Schulz |
|
|