Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3156 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
Outlook & Mail
gelöst Bestimmte Anhänge bei E-mails mit Exchange 2010 löschen (5)

Frage von jojo0411 zum Thema Outlook & Mail ...

Batch & Shell
gelöst Dateien (PDF) umbenennen via batch, teilw. Dateinamen übernehmen, neues Präfix (6)

Frage von brause1701 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Festplatten, SSD, Raid
gelöst Fehlerhafte Blöcke im RAID 10 (12)

Frage von Kojak-LE zum Thema Festplatten, SSD, Raid ...

Batch & Shell
HTML in Batch und Powershell (12)

Frage von michi-ffm zum Thema Batch & Shell ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (12)

Frage von planetIT2016 zum Thema Windows Server ...