Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.04.2014 16:38:19 |
Mat |
|
|
|
05.04.2014 18:11:57 |
gabi |
|
|
|
05.04.2014 18:22:24 |
Gast34946 |
|
|
|
05.04.2014 18:32:08 |
gabi |
|
|
Excel VBA Zellen von A nach B kopieren, mehrere Möglichkeiten, IF THEN ELSEIF |
06.04.2014 14:42:32 |
Gast55544 |
|
|
|
06.04.2014 14:49:19 |
Gast19483 |
|
|
|
06.04.2014 15:37:43 |
Mat |
|
|
|
06.04.2014 16:37:39 |
Gast75123 |
|
|
|
06.04.2014 17:30:21 |
gabi |
|
|
|
06.04.2014 17:11:32 |
Gast80865 |
|
|
|
06.04.2014 22:55:45 |
Mat |
|
|
Von:
Gast55544 |
Datum:
06.04.2014 14:42:32 |
Views:
1632 |
Rating:
|
Antwort:
|
Thema:
Excel VBA Zellen von A nach B kopieren, mehrere Möglichkeiten, IF THEN ELSEIF |
Hallo Gabi,
Ganz lie en Dank für die Hilfe! Super! :)
Ich habe es hiermit probiert:
Sub KopierenJeNachZellenwert()
Dim s As String
s = ActiveCell.Value
If Blatt1.Range("L30") = "ORI1" Then 'nicht in einer Zeile
Blatt2.Range("N10:P22").copy
ElseIf Blatt1.Range("L30") = "ORI2" Then
Blatt2.Range("N24:P36").copy
ElseIf Blatt1.Range("L30") = "ORI3" Then
Blatt2.Range("N37:P78").copy
'usw.
Else
Blatt2.Range("B1").copy
Blatt1.Activate
Blatt1.Range("C13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Else = zu viel des guten
End If
End Sub
Aber irgendwie passiert jetzt nichts mehr. Hm. Kann es sein, dass ich den "Paste"-Befehl unter jede Möglichkeit kopieren muss?
If Blatt1.Range("L30") = "ORI1" Then 'nicht in einer Zeile
Blatt2.Range("N10:P22").copy
Blatt1.Activate
Blatt1.Range("C13").Select
ActiveSheet.Paste
ElseIf Blatt1.Range("L30") = "ORI2" Then
'usw
Vielen Dank!!
Liebe Grüße,
Mat
|
- 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
|
|
05.04.2014 16:38:19 |
Mat |
|
|
|
05.04.2014 18:11:57 |
gabi |
|
|
|
05.04.2014 18:22:24 |
Gast34946 |
|
|
|
05.04.2014 18:32:08 |
gabi |
|
|
Excel VBA Zellen von A nach B kopieren, mehrere Möglichkeiten, IF THEN ELSEIF |
06.04.2014 14:42:32 |
Gast55544 |
|
|
|
06.04.2014 14:49:19 |
Gast19483 |
|
|
|
06.04.2014 15:37:43 |
Mat |
|
|
|
06.04.2014 16:37:39 |
Gast75123 |
|
|
|
06.04.2014 17:30:21 |
gabi |
|
|
|
06.04.2014 17:11:32 |
Gast80865 |
|
|
|
06.04.2014 22:55:45 |
Mat |
|
|