Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Bestimmte Zellenwerte von Sheets aus Workbook picken und in ein neues Sheet schreiben

Frage Microsoft Microsoft Office

Mitglied: andi-cam

andi-cam (Level 1) - Jetzt verbinden

17.08.2009, aktualisiert 19:15 Uhr, 3175 Aufrufe, 2 Kommentare

Hallo,
Das Problem ist eigentlich recht simpel, leider bin ich newcomer und weiß nicht so recht, wie ich das Problem bewältigen kann.
Ich habe ein Workbook mit einer gewissen Anzahl an Sheets. Jedes Sheet ist gleich aufgebaut. Jetzt möchte ich von jedem Sheet der Reihe nach den Tabellenwert z.B. aus Zeile 18 in Spalte B heraus picken und in ein separates Sheet schreiben. Jetzt weiss ich nur nicht, wie man das am besten bewältigt. Zusätzlich muss man dazu sagen, dass die Anzahl der Sheets in dem Workbook variiert.
Jetzt die Frage ob Möglichkeiten existieren, mit Hilfe einer Schleife/Routine die Daten zu extrahieren und wenn ja, wie macht man das am besten. Habe das vorher noch nie gemacht und benötige baldmöglichst eine Lösung.
Bin über jede Hilfe sehr dankbar
Mitglied: bastla
17.08.2009 um 19:33 Uhr
Hallo andi-cam und willkommen im Forum!

Unter Excel2003 etwa so:
Füge eine neue Tabelle (für die Zusammenfassung ein), wähle nach einem Rechtsklick auf die Registerkarte dieser Tabelle "Code anzeigen" und füge in das danach geöffnete (große) Codefenster ein:
01.
Sub Sammle() 
02.
Set Sammel = ActiveSheet 
03.
 
04.
Spalte = "A" 
05.
AbZeile = 3 
06.
Zelle = "B18" 
07.
 
08.
Zeile = AbZeile 
09.
For Each Tabelle In Worksheets() 
10.
    If Tabelle.Name <> Sammel.Name Then 
11.
        Cells(Zeile, Spalte) = Tabelle.Range(Zelle) 
12.
        Zeile = Zeile + 1 
13.
    End If 
14.
Next 
15.
End Sub
Passe die Zeilen 4 bis 6 an Deine Daten an und starte das Makro, indem Du den Cursor in irgendeine Zeile zwischen "Sub Sammel()" und "End Sub" platzierst und in der Symbolleiste das grüne "Play"-Symbol ("Sub/UserForm ausführen") anklickst. Alternativ dazu kannst Du auch aus dem Tabellenblatt über "Extras / Makro / Makros" das Makro starten.

Grüße
bastla
Bitte warten ..
Mitglied: andi-cam
17.08.2009 um 19:45 Uhr
Exzellent.
Vielen Dank. Das ist das, was ich gesucht habe

Grüße,
andreas
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA: workbook schließt sich nicht, wenn Sheet ein Diagramm ist
gelöst Frage von Gimli3311VB for Applications2 Kommentare

Guten Abend Zusammen, habe ein zweites Problem in meinem Code. Dachte ich kann des selber lösen aber es klappt ...

Microsoft Office
Excel - letzte Zeile aus mehreren Sheets ein ein neues Sheet untereinander kopieren
Frage von ITNoobNewMicrosoft Office4 Kommentare

Hallo zusammen, ich versuche, mir ein Dashboard in Excel aus verschiedenen Excel-basierten Reports zusammenzustellen. Dabei ist für mich immer ...

VB for Applications
Pfad eines in Sheet eingebetteten Bildes
gelöst Frage von gluehbirneVB for Applications3 Kommentare

Hi! ich möchte gerne ein in ein tabellenblatt eingefügtes bild in eine email anhängen und einbetten. das alles klappt ...

VB for Applications
Sheet in hinter letzten, verwenderten Spalte einfügen
gelöst Frage von aivilonVB for Applications9 Kommentare

Moin Zusammen Ausgangslage: Ich habe zwei Sheets. Sheet "SCData" ist Variabel in der Grösse. Darin befindet sich eine Pivot, ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 21 StundenWindows 102 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 23 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Windows Server
GPO nur für bestimmte Computer
Frage von Leo-leWindows Server13 Kommentare

Hallo Forum, gern würde ich ein Robocopy script per Bat an eine GPO hängen. Wichtig wäre aber dort der ...

Windows Server
KMS Facts for Client configuration
Frage von winlinWindows Server13 Kommentare

Hey Leute, wir haben in unserem Netz nun einen neuen KMS Server. Haben Bestands-VMs die noch nicht aktiviert sind. ...

Windows Tools
Software-Tool zum Entfernen von bösartigem Windows
Frage von emeriksWindows Tools11 Kommentare

Hi, siehe Betreff hat das jemals irgendjemand schonmal sinnvoll eingesetzt? (MRT) E.

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...