Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variablen Bereich in anderes Tabellenblatt kopiere

Variablen Bereich in anderes Tabellenblatt kopiere
10.01.2013 17:50:21
Dominic
https://www.herber.de/forum/messages/1292888.html
Hier ist schon ein VBA Code zu einem ähnlichen Anliegen aufgeführt wie kann ich diesen so abändern, dass in Abhängigkeit von B1, B2, und B6 Werte aus verschiedenen/Variablen Zellbereichen aus dem Tabellenblatt "Überblick" in das Tabellenblatt "Export" übergeben wird.
Wenn B1 = 1 muss mit ner weiteren Wenn Überprüfung überprüft werden ob B6 = 1, ist das der Fall wird nichts kopiert. Wenn aber B6=2 wird der Bereich A22:O91 kopiert, wenn B6=3 soll der Bereich A22:O100 kopiert werden und wenn B6=4 soll der Bereich A22:O150 kopiert werden.
Wenn B2 = 2 liegt der zu kopierende Bereich bei A22:O22 und A117:O386
Vielen Dank im Voraus!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variablen Bereich in anderes Tabellenblatt kopiere
11.01.2013 00:50:41
Ass
Hallo
so oder so ähnlich
Sub Dominic()
Dim ws As Worksheet, r As Range
Set ws = Worksheets("Export")
With Worksheets("Überblick")
If .[b1] = 1 Then
Select Case .[b6]
Case 1
Case 2: .Range("A22:O91").Copy
Case 3: .Range("A22:O100").Copy
Case 4: .Range("A22:O150").Copy
End Select
Else
If .[b2] = 2 Then
Set r = Union(.Range("A22:O22"), .Range("A117:O386"))
r.Copy
End If
End If
End With
Paste ws.Range("A1")
End Sub

Gruß
Rudi
Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige