Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

neue Tabelle erzeugen und dann werte drin schreibe

Forumthread: neue Tabelle erzeugen und dann werte drin schreibe

neue Tabelle erzeugen und dann werte drin schreibe
24.07.2017 07:43:23
richar
Hallo,
ich habe noch eine Frage und hoffe, dass jemand mir helfen kann.
Ich mochte aus diese Programm Tabelle3 und Tabelle4 erzeugen bevor ist die Werte rein schreibt. Momentan es ist so programmiert dass man schon Tabelle3 und Tabelle4 hast. Ich möchte aber neue erzeugen und dann rein schreiben.
https://www.herber.de/bbs/user/115017.xlsm
Ich bedanke mich
Gruß
Richar
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
24.07.2017 10:08:21
Sven
Hi, so kannst Du die Tabellen anlegen... 

Dim s As Worksheet
Dim s1, s2 As Boolean
'Prüfen ob Worksheets bereits existieren
For Each s In Worksheets
If s.Name = "Tabelle3" Then s1 = True
If s.Name = "Tabelle4" Then s2 = True
Next
'Anlegen wenn Worksheets nicht exisitieren
If s1 = False Then ThisWorkbook.Worksheets.Add.Name = "Tabelle3"
If s2 = False Then ThisWorkbook.Worksheets.Add.Name = "Tabelle4"

Anzeige
nur zur Info "Variablen Deklarierung"...
24.07.2017 11:04:01
Tino
Hallo,
nur zur Info,
die Variable s1 in deinem Beispiel ist Variant nicht Boolean.
Man muss für jede Variable den Typ separat angeben auch wenn diese in der selben Zeile stehen.
Gruß Tino
AW: neue Tabelle erzeugen und dann werte drin schreibe
24.07.2017 10:57:30
Tino
Hallo,
hast du die falsche Tabelle hochgeladen in diesem Beitrag.
Habe dir mal dies in die Tabelle vom alten Beitrag mit eingebaut.
https://www.herber.de/bbs/user/115020.xlsm
Gruß Tino
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
24.07.2017 18:05:32
richar
Ich bedanke mich sehr bei euch beiden funktioniert einwandfrei.
AW: neue Tabelle erzeugen und dann werte drin schreibe
28.07.2017 22:47:48
richar
Hallo Tino,
ich habe bitte noch eine frage und hoffe, dass du mir helfen kann. Ich habe das Programm noch angepasst aber kommt Fehler 424 raus.
Ich nehme normalerweise die Tabelle von einem Ordner und schreib in tab2 dann bereinig diese und schreib in tab5 ich möchte jetzt von tab5 Tabelle3 und tabelle4 erzeugen wie du mir gezeit hast. bitte wie mache ich das?
https://www.herber.de/bbs/user/115116.xlsm
Ich bedanke mich
Gruß
Richar
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
29.07.2017 16:40:23
Tino
Hallo,
die Tabelle wird hier verwendet.
Ich verwende aber meist den Codeamen der Tabelle, du müsstest evtl. den Registernamen verwenden.
Kann den Code so jetzt nicht testen!
With ThisWorkbook.Sheets("Tab5")'Tabelle
'Zellen ab A1 bist zu letzten in Spalte A + 6 Spalten nach rechts
Set rngData = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 6)
End With
Gruß Tino
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
29.07.2017 23:04:20
richar
Vielen Dank!
AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 08:55:54
richar
Hallo Tino,
Meine Tab5 geht von A bis J und ich habe so geschrieben 
With ThisWoorbook.Sheets("Tab5")
Set rngData = .Range("A1", .Cells(.Rows.Count, 6).End(xlUp)).Resize(, 10)
End With

Bitte was macht diese Zeile? 
 rngData.AdvancedFilter xlFilterCopy, rngHelp, .Range("A1:E1")
Kommt Fehler 1004 hier
Ich bedanke mich
Gruß
Richar
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 10:02:43
Tino
Hallo,
"rngData.AdvancedFilter xlFilterCopy, rngHelp, .Range("A1:E1")"
diese Zeile ist der Spezialfilter und kopiert die Daten entsprechend
1T und 8Z nach Tabelle3
5G und 3K nach Tabelle4
Überschriften die in Tab5 sind müssen auch im Ziel also Tabelle3 und 4 vorhanden sein,
sonst können die Daten nicht zugeordnet werden.
Gruß Tino
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 12:52:10
richar
funktioniert besten vielen Dank!
Ich habe noch eine Frage bitte. In tabelle3 und 4 nachdem ich gefilter habe eliminiere ich noch ein paar Zeile und kommt deswegen meine neue Tabelle ganz unten. Bitte wie kann ich machen sodass egal wie viel zahle ich eliminiere in Tabelle3, und 4 trotzdem nach 4 Zeile die neue Tabelle kommt 
Call ErstelleTabelle(.Cells(.Rows.Count, 1).Offset(4).Resize(, 6))



Sub ErstelleTabelle(rng As Range)
rng.Borders(xlEdgeTop).LineStyle = xlContinuous
rng.Font.Size = 9
rng.Font.Name = "Courier New"
rng.Cells(1, 2).Value = "Name haufigkeit"
rng.Cells(1, 3).Value = "Anzahl Zeichnung gut"
rng.Cells(1, 4).Value = "Anzahl Zeichnung schlecht"
End Sub
Gruß
Richar
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 14:13:07
richar
Zum Beispiel in Tabelle3 ich eliminiere 1T weil er mehrmals vorkommt und trotzdem neue Tabelle unten nach 4 Zeile nicht 5
AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 16:47:43
Tino
Hallo,
versuch es so.
Allerdings ist dies jetzt nur dazu gebaut,
wäre die Anforderung zuvor bekannt hätte ich den Code anders geschrieben!
https://www.herber.de/bbs/user/115134.xlsm
Gruß Tino
Anzeige
AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 17:59:25
richar
Hallo Tino,
vielen Dank für den Code. Ich lösche aber nicht die Doppelte aber ich schauen Spalte "iö" nachdem ich die Tabelle3 und vier sortiere habe und lösche alle was 2 oder mehrmals kommt und behalte nur 1. zum Beispiel "17" in Tabelle4 kommt zwei mal ich lösche dann komplett die 2. Zeile wo "17" kommt.
Und zum schluss muss ich formel für alles was in rot steht in code schreiben
Ich hoffe du kannst mir weiter helfen
https://www.herber.de/bbs/user/115136.xlsm
Ich bedanke mich
Gruß
Richar
Anzeige

Forumthreads zu verwandten Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Berichtsfilterwert auch für andere Pivottabellen
Stefan

Hallo,
habe da eine Frage bzgl. des Berichtsfilters in Pivotabellen. Folgender Sachverhalt:
In einer Datei gibt es auf mehreren Arbeitsblättern Pivottabellen. Alle Pivots haben das Kriterium "Kalenderwoche" im Berichtsfilter. Wie kann ich, wenn ich mir in einer "Master-Pivottabelle" ein...
25.09.2008 10:58:00
Thread-ID: 1012265
2 Beiträge
Summe berechnen mit einer Matrixformel
Sibylle

Hallo,
kann man die Summe der Nettobeträge mit einer Matrixformel ermitteln.
Wenn ja, wie muss diese dann aussehen?
Besten Dank im voraus.
Gruß
Sibylle

11.11.2008 10:18:00
Thread-ID: 1023446
12 Beiträge
Autofilter - Filterwerte als Tabellenblatt
gregor

Hallo, ihr da draußen ;-)
Ich stehe vor folgendem Problem: Ich habe eine laaaaange Liste mit Kunden/Produkten, die unter anderem
eine Spalte mit dem Zuständigen Außendienst-Mitarbeiter enthält, also etwa so:
AD_____Kunde_______Produkt_______Menge
Meyer__Gebrüder Gr.__Produkt A__...
19.11.2008 17:33:58
Thread-ID: 1026134
9 Beiträge
Anzeige
AW: Autofilter - Filterwerte als Tabellenblatt
gregor

Hallo!
Erstmal vielen Dank für die vielen Ideen!
@Susanne:
*)Pivot möchte ich nicht machen, weil mir das irgendwie unsympathisch ist
*)Die Idee mit dem Makro aufzeichnen ist mir auch schon gekommen, aber da müsste es ja noch was eleganteres geben... ;-)
@Robert:
Funktion...
20.11.2008 18:20:00
Thread-ID: 1026507
7 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Formel zum berechnen von Zeitfenster gesucht.
Zeitfenster

Hallo und Guten Morgen.
Habe mal wieder ein Problem, an dem ich langsam verzweifele.
Es geht um eine Zeitfensterauswertung über einen Monat. Habe ein Muster hochgeladen, an dem Ihr besser erkennen könnt, was ich lösen möchte. https://www.herber.de/bbs/user/57730.xls
Versuche seit T...
19.12.2008 07:32:00
Thread-ID: 1034028
11 Beiträge
Anzeige
doppelte werte im Array aus Tabelle (dim)
chris

Hallo VBA Profis und guten morgen,
ich habe eine frage zu einem Code wie ich diesen am besten erstelle.
Ich habe eine Tabelle mit daten in einer Spalte(untereinander)
Jetzt möchte ich diese zeile mit diesem Makro einlesen aber nur einmal vorkommende werte.
Also wenn ein Wert dop...
15.01.2009 07:43:25
Thread-ID: 1039878
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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