Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro, Zellen kopieren und einfügen

Makro, Zellen kopieren und einfügen
08.04.2021 09:13:12
Volker
Hallo, ich kann nochmal Hilfe gebrauchen. Herr Grom hat mir ein Makro erstellt. Auf diesem aufbauend soll das Makro erweitert oder ein neues erschaffen werden. Der Unterschied zum dem bisherigen ist, dass es zusätzlich auch andere Spalten aus dem Tabellenblatt "Liste-Auswahl" kopieren und dann auf dem Tabellenblatt "Startseite" einfügen soll. Es gelten die gleichen Bedingungen zu A11. Das Makro soll zusätzlich dann auch z. Bsp. bei A11 = "kl" dann den Bereich "Liste-Auswahl" A50:A55 kopieren und auf dem Tabellenblatt "Startseite" ab A15 einfügen, Bei A11 = "einst", dann A60:63 und bei A11 = "un" A65:A66. Es sollen also zwei Makros gleichzeitig ausgeführt werden. Hier das vorhandene Makro.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$A$11" Then
Worksheets("Dienstleistung").Range("A5:A25").Delete Shift:=xlToLeft
Select Case Target.Value
Case "kl"
Worksheets("Liste Auswahl").Range("A1:A5").Copy
Worksheets("Dienstleistung").Range("A5").PasteSpecial xlAll
Case "einst"
Worksheets("Liste Auswahl").Range("A10:A20").Copy
Worksheets("Dienstleistung").Range("A5").PasteSpecial xlAll
Case "Un"
Worksheets("Liste Auswahl").Range("A24:A28").Copy
Worksheets("Dienstleistung").Range("A5").PasteSpecial xlAll
End Select
Application.CutCopyMode = False
End If
ende:
Worksheets("Dienstleistung").Rows("5:25").RowHeight = 24.75
Application.EnableEvents = True
End Sub
Danke schon mal!!
Volker

28
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro, Zellen kopieren und einfügen
08.04.2021 09:26:37
MCO
Moin!
Ich hab mal versucht, das ganze etwas zu raffen und damit lesbarer zu machen.
Das zweite Makro, eigentlich nur eine 2te Anweisung hab ich eingebaut.
Gruß, MCO
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS_DL As Worksheet
On Error GoTo ende
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$A$11" Then
Set WS_DL = Worksheets("Dienstleistung")
WS_DL.Range("A5:A25").Delete Shift:=xlToLeft
With Worksheets("Liste Auswahl")
Select Case Target.Value
Case "kl"
.Range("A1:A5").Copy WS_DL.Range("A5")
.Range("A50:A55").Copy WS_DL.Range("A15")
Case "einst"
.Range("A10:A20").Copy WS_DL.Range("A5")
.Range("A60:A63").Copy WS_DL.Range("A15")
Case "Un"
.Range("A24:A28").Copy WS_DL.Range("A5")
.Range("A65:A66").Copy WS_DL.Range("A15")
End Select
End With
Application.CutCopyMode = False
End If
ende:
WS_DL.Rows("5:25").RowHeight = 24.75
Application.EnableEvents = True
End Sub

Anzeige
AW: Makro, Zellen kopieren und einfügen
08.04.2021 09:58:29
Herbert_Grom
Hallo MCO,
also was an deinem Code lesbarer als an meinem sein soll, das musst du mir schon mal erklären! Was ist "lesbarer" als Klartext? Kürzer ist er, aber für einen nicht so VBA-Versierten User ganz sicher nicht "lesbarer"!
Servus
AW: Makro, Zellen kopieren und einfügen
08.04.2021 10:26:05
Volker
https://www.herber.de/bbs/user/145384.xlsm
Alles klar Herbert!, also das Makro soll zusätzlich auch Bereiche aus Tabellenblatt "Liste-Auswahl" zum Bsp. wenn Startseite A11 = "kl", dann die Zellen "Liste-Auswahl" A50:A55 kopieren und beim Tabellenblatt "Startseite" ab A15 einfügen. Hoffe das ist verständlich ausgedrückt.
Volker
Anzeige
AW: Makro, Zellen kopieren und einfügen
08.04.2021 10:47:03
Werner
Hallo,
  • 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
If Target.Count = 1 Then
If Target.Address = "$A$11" Then
Application.EnableEvents = False
Worksheets("Dienstleistung").Range("A5:A25").Delete shift:=xlToLeft
Range("A15:A25").ClearContents
With Worksheets("Liste Auswahl")
Select Case Target.Value
Case "kl"
.Range("A1:A5").Copy Worksheets("Dienstleistung").Range("A5")
.Range("A50:A55").Copy Range("A15")
Case "einst"
.Range("A10:A20").Copy Worksheets("Dienstleistung").Range("A5")
.Range("A60:A63").Copy Range("A15")
Case "Un"
.Range("A24:A28").Copy Worksheets("Dienstleistung").Range("A5")
.Range("A65:A66").Copy Range("A15")
End Select
End With
End If
End If
ende:
Worksheets("Dienstleistung").Rows("5:25").RowHeight = 24.75
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

    • Gruß Werner
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 15:45:21
    Herbert_Grom
    Und welche Bereiche sollen für "einst" & "un" nach "Startseite A15" kopiert werden?
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 09:27:50
    Werner
    Hallo,
    du sprichst hier von "anderen Spalten"? Welche andere Spalten denn?
    Du meinst wohl explizit die von dir angegebenen Zellbereiche, die kopiert werden sollen?
    Soll/muss im Zielblatt "Startseite" auch der Zellbereich/Zielbereich A15:A20 vorher gelöscht und die Zellen nach rechts verschoben werden?
    Gruß Werner
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 09:44:52
    Herbert_Grom
    Hallo Volker,
    auch wenn ich nun schon ein alter Sack bin und heute meine 1. Covid19-Spritze bekomme, so bin ich doch hier im Forum der "Herbert"! OK?
    Um deinen Wunsch zu bearbeiten solltest du wieder eine Beispielarbeitsmappe hochladen.
    Servus
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 10:50:08
    Volker
    https://www.herber.de/bbs/user/145385.xlsm
    Alles klar Herbert!, also das Makro soll zusätzlich auch Bereiche aus Tabellenblatt "Liste-Auswahl" zum Bsp. wenn Startseite A11 = "kl", dann die Zellen "Liste-Auswahl" A50:A55 kopieren und beim Tabellenblatt "Startseite" ab A15 einfügen. Hoffe das ist verständlich ausgedrückt.
    Volker
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 12:27:25
    Werner
    Hallo,
    mein Vorschlag gefällt dir nicht?
    Gruß Werner
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 13:12:21
    Volker
    Hallo Werner, Dein Vorschlag ist gut! Allerdings soll er mir die
    Range("A50:A55").Copy Range("A15") und
    Range("A60:A63").Copy Range("A15")
    Range("A65:A67").Copy Range("A15")
    Auf dem Tabellenblatt "Startseite" bei A15
    einfügen.
    Gruß Volker
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 13:14:43
    Werner
    Hallo,
    na und? Genau das macht der Code. Der gehört halt, wie der vorherige auch, ins Codemodul von "Startseite".
    Gruß Werner
    AW: Makro, Zellen kopieren und einfügen
    08.04.2021 13:44:13
    Volker
    Herbert, ich habe die Datei hochgeladen. Wenn das Makro ausgeführt wird, kopiert er einen Teil ins Tabellenblatt "Dienstleistung" = richtig! den anderen Teil kopiert er auch in das Tabellenblatt "Dienstleistung" = falsch! Dieser Teil gehört ins Tabellenblatt "Startseite". ab Zelle A15 und nicht in "Dienstleistung".
    Volker
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 07:40:50
    Volker
    Herbert, ich habe die Datei hochgeladen. Kannst Du das bitte mal anschauen. Danke und Gruß Volker
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 08:50:45
    Herbert_Grom
    Könnte ich schon, wenn du meine Fragen endlich beantworten würdest!
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 10:07:18
    Volker
    sorry.... also
    kl = Liste-Auswahl A50:A55
    einst = A60:A64
    un = A65:A68
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 10:32:33
    Volker
    ….. das Makro sollte wenn die Auswahl in A11 geändert wird, oder nichts ausgewählt ist, die vorher eingefügten Zellen ab A15 löschen, wie auch auf dem Tabellenblatt "Dienstleistung"
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 11:18:04
    Herbert_Grom
    und das bringst du wirklich nicht alleine fertig? Versuchs doch mal! Du kannst mir deinen Vorschlag ja hier mal posten!
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 11:59:46
    Volker
    Herbert, ich werde nächsten Monat 62, habe mir alles was ich über Exel weiß, durch probieren und lesen selbst angeeignet und ich schäme mich nicht dafür wenn ich solche Sachen nicht weiß.
    Ich komme in die VBA nicht rein. Die Datei wird als HP Sure Click Secure View bei mir angezeigt. Wahrscheinlich bin ich auch dazu zu blö……. :-)
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 12:33:23
    Herbert_Grom
    Hallo Volker,
    und ich bin 71 und habe mir auch alles was ich über Excel weiß selbst, und mit Hilfe der EXCEL-Foren, beigebracht! Also, was willst du mir mit deinen 61 Jahren sagen?
    Aber ich baue dir die Zeile noch ein, doch komme ich erst heute im Laufe des Nachmittags dazu. OK?
    Servus
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    09.04.2021 12:46:12
    Herbert_Grom
    Was passiert eigentlich mit den Zellen, in denen das hier steht: "weiter →"?
    AW: Makro, Zellen kopieren und einfügen
    10.04.2021 08:41:44
    Volker
    ... ich verstehe nicht! Kannst Du mir bitte helfen? ich kann das VBA nicht öffnen um zu probieren. Ich muss doch auch die Zelleninhalte wieder ändern.
    AW: Makro, Zellen kopieren und einfügen
    10.04.2021 09:40:54
    Herbert_Grom

    Das meine ich? Denn dafür gibt es auch keinen VBA-Code.
    jetzt nochmal, ganz....
    10.04.2021 10:12:59
    Werner
    Hallo,
    ....langsam und zum Mitschreiben:
    Das Makro, das genau das macht, hast du schon seit geraumer Zeit. Ich habe keine Ahnung, was du da immer noch damit rum machst.
    Den Beitrag mit dem Code habe ich dir bereits am 08.04. um 10:26 Uhr hier eingestellt.
    Ich habe jetzt nur beim Einfügen der Daten im Blatt "Startseite" eine Änderung vorgenommen, damit nur die Daten ohne Formatierungen eingefügt werden.
    https://www.herber.de/bbs/user/145428.xlsm
    Gruß Werner
    Anzeige
    AW: Makro, Zellen kopieren und einfügen
    13.04.2021 10:24:45
    Volker
    Vielen Dank Herbert!!!!!!!
    Gruß
    Volker
    Warum offen? Und auch noch...
    13.04.2021 11:02:27
    Werner
    Hallo,
    ...herzlichen Dank fürs Ignorieren.
    Gruß Werner
    AW: Bitte sehr & danke für die Rückmeldung! owt
    13.04.2021 11:35:36
    Herbert_Grom
    ,,,

    315 Forumthreads zu ähnlichen Themen

    Beim Kopieren eines Tabellenblattes den VBA-Code e
    Alfi

    Hallo Excel-Gemeinde!
    ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
    Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
    Wer kann mir helfen?
    So sieht der...
    09.09.2008 09:58:00
    Thread-ID: 1008333
    8 Beiträge
    Anzeige
    Bereich markieren und kopieren
    Thomas

    Hi,
    ich habe hier ein Makro das mir die Zeilen und Spalten markieren soll welche Daten enthalten in dem es mir die letzte befüllte Zeile und Spalte sucht, anschliessend diesen Bereich makiert und kopiert, dann ein anderes Tabellenblatt öffnet einen Range ("A6:K4") selectiert und dort die Da...
    03.10.2008 22:42:00
    Thread-ID: 1014101
    2 Beiträge
    Filtern und Kopieren - VBA
    Wolfgang

    Hallo,
    gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
    09.11.2008 10:21:00
    Thread-ID: 1023032
    7 Beiträge
    Anzeige
    VBA Zellbereich kopieren
    Karin

    Hallo Forum,
    ich muss von einem Tabellenblatt bei bestimmten Bedingungen Zellbereiche in ein anderes Tabellenblatt kopieren. Eigentlich leicht, dachte ich ... In den XL-Beispielen habe ich auch ein wunderbares Makro gefunden, das per Doppelklick den gesamten Zellbereich in das zweite Tabell...
    14.07.2009 19:08:09
    Thread-ID: 1088630
    10 Beiträge
    VBA Zelle finden und einfügen
    Einzel

    Hallo,
    ich hab mal wieder ein kleines VBA Problem
    Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
    Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
    15.07.2009 09:50:12
    Thread-ID: 1088685
    4 Beiträge
    Zeilen einfügen und kopieren
    bug-i

    Hallo, ich brauche eure Hilfe:
    Folgende Beispietabelle:
    Merkmal - Text
    1 - Text1
    3 - Text2
    1 - Text3
    1 - Text4
    2 - Text5
    1 - Text6
    Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
    Die T...
    05.08.2009 10:11:39
    Thread-ID: 1093668
    2 Beiträge
    Tabellenblatt kopieren ohne Zellbezüge (VBA)
    S.

    Liebe Herber Excel-Gemeinde,
    ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
    11.08.2009 11:38:01
    Thread-ID: 1094961
    4 Beiträge
    Zeilen variabel oft kopieren und einfügen
    Bernd

    Hallo Forum,
    ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
    Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
    In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
    Die txt-Datei kann unterschiedlich v...
    03.09.2009 17:41:35
    Thread-ID: 1100389
    9 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    7
    1
    1
    6
    2
    9
    3
    1
    3
    8
    2
    14
    4
    11
    10
    2
    19
    3
    8
    6
    9
    11
    2
    5
    5