Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon manney vom 18.06.2021, 15:35 Options

Tabellenblatt öffnen

Hallo,

ich habe 5 Tabellen..

Tabelle01 bis Tabelle05. Tabelle01(Weber), Tabelle02(Müller) usw..
ich möchte aus Tabelle01 bis Tabelle05 immer die Zelle F7 in die Tabelle00 in Spalte A3 untereinander kopieren..
Geht das mit einer schleife? oder muss ich den VBA befehl 5 mal schreiben und die Tabellennamen jeweils ersetzen?

Danke..

Antwort schreiben

Antwort 1 von kicia vom 19.06.2021, 09:07 Options


    sourceCell = "F7"
    targetSheet = "Tabelle00"
    targetCol = "A"
    targetRow = 3
    sourceSheet = ""
    For i = 1 To 3
        sourceSheet = "Tabelle" & i
        Sheets(sourceSheet).Select
        Range(sourceCell).Select
        Selection.Copy
        Sheets(targetSheet).Select
        Range(targetCol & targetRow).Select
        ActiveSheet.Paste
        targetRow = targetRow + 1
    Next

oder, wenn sich bei den namen der blätter mehr als nur die zahl ändert:


    sourceCell = "F7"
    targetSheet = "Tabelle4"
    targetCol = "A"
    targetRow = 3
    tabs = Array("Tabelle1_xyz", "Tabelle2_abc", "Tabelle3_blabla")
    sourceSheet = ""
    For i = 1 To 3
        sourceSheet = tabs(i - 1)
        Sheets(sourceSheet).Select
        Range(sourceCell).Select
        Selection.Copy
        Sheets(targetSheet).Select
        Range(targetCol & targetRow).Select
        ActiveSheet.Paste
        targetRow = targetRow + 1
    Next

Antwort 2 von nighty vom 19.06.2021, 10:51 Options

hi kicia :-)

kein modul zu sehen,keine deklarationen, und zu viele selectionen

gruss nighty

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken