Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten aus einem Tabellenblatt auslesen

Forumthread: Spalten aus einem Tabellenblatt auslesen

Spalten aus einem Tabellenblatt auslesen
Kiewel
Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04.12.08/06:00 /06:30/ Kundenbetreuung/12 /14 /16
In den Spalten für die Themen stehen Anrufe beim Team Kundenbetreuung drin. Die Anzahl der Themen variiert täglich.
Um den Kram nun in Access weiterverarbeiten zu können, erstelle ich per VBA für jedes Thema ein Tabellenblatt und benenne das mit Thema1, Thema2, etc.
Dort packe ich dann die Spalten Datum /Uhrzeit von/Uhrzeit bis/Team in die Spalten A-D rein.
Ich bekomme jetzt die Schleife nicht hin, mit dem Excel
- die Zeilen 2-29 der jeweiligen Spalte aus dem ersten Datenblatt kopiert und in die richtigen Tabellenblätter einsetzt.
Vorab vielen Dank für Eure Mithilfe.
Anzeige
AW: Spalten aus einem Tabellenblatt auslesen
05.01.2009 16:20:25
Oberschlumpf
Hi
- wir kennen deine Tabelle nicht
- wir kennen deinen Code nicht
Wäre nett, wenn du uns beides zur Verfügung stellst - und vielleicht innerhalb der Datei noch mal schreibst, was wann wo und wie hin soll.
Ciao
Thorsten
AW: Spalten aus einem Tabellenblatt auslesen
Kiewel
Hallo Thorsten,
sorry, Anfänger im Forum...
hier der Code:

Private Sub Workbook_Open()
Dim i As Long
Dim MC As String
Dim x As Integer
'Bläter umbenennen
Worksheets("Element 1").Name = "0_Anrufe"
Worksheets("Element 2").Name = "0_Gespräche"
'Basisdaten löschen
Application.DisplayAlerts = False
Sheets("Basisdaten").Select
ActiveWindow.SelectedSheets.Delete
'Zeilen Löschen
Sheets("0_Anrufe").Activate
Rows("1:11").Select
Selection.Delete shift:=xlUp
Sheets("0_Gespräche").Activate
Rows("1:11").Select
Selection.Delete shift:=xlUp
'Filter setzen
Sheets("0_Anrufe").Activate
If Not ActiveSheet.AutoFilterMode = True Then Range("A1").AutoFilter
Selection.AutoFilter field:=4, Criteria1:="Kundenbetreuung"
Sheets("0_Gespräche").Activate
If Not ActiveSheet.AutoFilterMode = True Then Range("A1").AutoFilter
Selection.AutoFilter field:=4, Criteria1:="Kundenbetreuung"
Sheets("0_Anrufe").Select
Range("A1:D701").Select
Selection.Copy
'Tabellenblätter einfügen
Application.ScreenUpdating = False
Sheets("0_Anrufe").Activate
Range("e1", Selection.End(xlToRight)).Select
For Each Zelle In Selection
Worksheets.Add                              'Neues Tabellenblatt anlegen
ActiveSheet.Name = Zelle.Value              'Name aus Überschrift bilden
Range("A1").Select                          'Zelle A1 aktivieren
ActiveSheet.Paste                           'Einsetzen
Range("e1").Select                          'Zelle E1 aktivieren
ActiveCell.FormulaR1C1 = "Anrufe"       '"Anrufe reinschreiben
Range("f1").Select                          'Zelle F1 aktivieren
ActiveCell.FormulaR1C1 = "Gespräche"    '"Gespräche" reinschreiben
Range("d2:d29").Select                      'Zellen d2-d29 aktivieren
ActiveCell.FormulaR1C1 = Zelle.Value    'MC Überschrift reinschreiben
Range("d3:d29").Value = Range("d2")         'in diese Zellen
Next Zelle
Application.ScreenUpdating = True
'Anruftabelle ohne Filter kopieren
Sheets("0_Anrufe").Activate
Cells.Select
Selection.Copy
Sheets.Add
Sheets("Tabelle28").Select
Sheets("Tabelle28").Name = "00_Anrufe"
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Gesprächtabelle ohne Filter kopieren
Sheets("0_Gespräche").Activate
Cells.Select
Selection.Copy
Sheets.Add
Sheets("Tabelle29").Select
Sheets("Tabelle29").Name = "00_Gespräche"
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Daten übertragen
Sheets("MC Amberg").Activate
For i = 2 To 29
''cells(Zeile, Spalte)
Range("E2:E29").Value = Sheets("00_Anrufe").Range("E2:E29").Value
Range("F2:F29").Value = Sheets("00_Gespräche").Range("F2:F29").Value
Next i
'Tabellenblätter sortieren
Application.ScreenUpdating = False
iMax = ActiveWorkbook.Worksheets.Count
For lbl = 1 To iMax
For ibl2 = lbl To iMax
If UCase(Worksheets(ibl2).Name) _


Ich hänge jetzt bei "Daten übertragen".
Eine Beispieldatei hänge ich dran.
https://www.herber.de/bbs/user/58095.xls
Beste Grüße
Peter

Anzeige
AW: Spalten aus einem Tabellenblatt auslesen
05.01.2009 16:52:11
Oberschlumpf
Hi
Ich sehe schon jetzt, dass dein Code nicht zur "gelieferten" Datei passt.
Im Code werden mehrere Sheets umbenannt, gelöscht, usw.
Aber die Sheets in der Datei heißen nicht, wie im Code vorgegeben...somit würde dein Code mit der "neuen" Datei Fehler produzieren.
Warum hast du die Datei nicht mit dem Code zusammen gesendet - also - Code in Datei gepackt, so weit angepasst, dass dein Code auch in der Bsp-Datei funktioniert...und dann Upload?
Ciao
Thorsten
ach ja...was n nun?...nutzt du dieses Forum schon seehr lange (dein Text aus Nachricht 1) oder bist du Forumanfänger? (dein Text aus Nachricth 2)...hmmm
Anzeige
AW: Spalten aus einem Tabellenblatt auslesen
Kiewel
Hallo Thorsten,
habe eine kleinere Beispieldatei reingelegt. Die Originaldatei ist zu groß.
Anbei jetzt nochmal die Beispieldatei mit dem angepassten Code.
Zu Deiner Frage: ich bin Anfänger beim Fragen stellen (wie du siehst) -). Bemühe mich um Besserung.
https://www.herber.de/bbs/user/58097.xls
Beste Grüße
Peter
Anzeige
AW: Spalten aus einem Tabellenblatt auslesen
05.01.2009 17:50:00
hary
Hallo Peter
muss gleich zur Arbeit. Hier mal ein Beispiel, wie es gehen koennte. vieleicht hilft's Dir weiter.
https://www.herber.de/bbs/user/58099.xls
Gruss Hary
AW: Spalten aus einem Tabellenblatt auslesen
Kiewel
Hallo Hary,
vielen Dank, hat mir super weitergeholfen.
Beste Grüße
Anzeige
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Anzeige
Arbeitsblattnamen in Zelle auslesen
Lemmi

Hallo zusammen,
ich möchte ein Arbeitsblatt auf das vorher gehende Arbeitsblatt referenzieren!
Meine Datei ist folgendermaßen Strukturiert:
Arbeitsblatt 1 : Tabelle A
Arbeitsblatt 2 : Tabelle A+ Adressen
Arbeitsblatt 3 : Tabelle B
Arbeitsblatt 4 : Tabelle B+ Adressen
30.08.2008 07:38:00
Thread-ID: 1006010
6 Beiträge
Anzeige
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Namen anderer Excel-Datei in Zelle übernehmen
alphaomega

Hallo,
ich habe hier Excel 2002 und 12 Excel-Dateien mit den Namen 2008-01, 2008-02, ..., 2008-12.xls.
Nun möchte ich eine weitere Excel-Datei als Übersicht anlegen, wo einige Daten aus den o.g. Zellen übernommen werden sollen. Wie das geht, weiß ich bereits: Das geht manuell durch copy...
19.09.2008 10:33:37
Thread-ID: 1010950
3 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige