Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Intelligente Tab Spalten ansprechen

VBA - Intelligente Tab Spalten ansprechen
11.01.2019 15:55:13
Alexander
Hi zusammen,
bin so verzweifelt das ich mich hier neu angemeldet hab :-)
Ich versuche eine Spalte in einer intelligenten Tabelle (Einfügen Tabelle. In VBA heißen die Dinger glaub ich listobject. wobei ich schon den unterschied zwischen listobject und listobjects nicht verstehe) anzusprechen und aus den Daten in der Spalte einen Mittelwert zu ermitteln.
Diesen Mittelwert möchte ich dann in einem txtfeld Ausgeben.
Die Tabelle heißt: "tabData"
Die Spalte heißt: "Note"
Das Textfeld heißt: "txtNote"
Vielen Dank für Eure hilfe

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Range("tabData[[#Headers],[Note]]")
11.01.2019 18:09:48
Matthias
Hallo
als kleine Denk-Hilfe ...
mit: MsgBox Range("tabData[[#Headers],[Note]]").Offset(1, 0).Address
kannst Du Dir die Adresse anzeigen lassen.

Range("tabData[[#Headers],[Note]]").Offset(2, 0).Address

wäre dann die nächste Zeile der Spalte[Note]
Gruß Matthias
AW: Range("tabData[[#Headers],[Note]]")
15.01.2019 09:48:45
Alexander
Hi Matthias,
ja das funktioniert. Gibt es auch eine Funktion die mir die komplette Spalte addiert oder einen Mittelwert erzeugt?
AW: Range("tabData[[#Headers],[Note]]")
15.01.2019 13:46:37
Alexander
Wie viele Zeilen die Spalte in der Tabelle hat, wäre auch hilfereich...
=MITTELWERT(tabData[[#Alle];[Note]])
17.01.2019 00:26:35
Matthias
Hallo
Kannst Du doch direkt als Formel verwenden:
=MITTELWERT(tabData[[#Alle];[Note]])
Du kannst aber auch den Bereich markieren 
Range(Range("tabData[[Note]]").Address).Select
oder sonst was damit machen
einfach den Bereich nur ausgeben: 
MsgBox Range("tabData[[Note]]").Address
So kannst Du also auch den Mittelwert per VBA bilden, denn die Range-Adresse hast Du ja nun ;-)
Gruß Matthias
Anzeige
AW: =MITTELWERT(tabData[[#Alle];[Note]])
17.01.2019 10:58:31
Alexander
Weltklasse jetzt hab ich es!
Du bist mein Held des Tages! Danke dir! :)
Wie das mit Helden so ist, folgt nach der Welt Rettung die Nächste :-)
Das gleich möchte ich jetzt auf einer anderen Spalte machen.
Die Spalte heißt Status und es gibt drei Eintragsmöglichkeiten:
- Leer
- Draft
- Final
in Textfeldern möchte ich jetzt ausgeben wie oft welcher Zustand vorkommt.
Natürlich per VBA. Umständlich mit Schleifen und so bekomme ich es bestimmt hin. Gibt es einen coolen einfachen Weg?
Danke Dir
aber auch das geht mit Formeln
17.01.2019 12:02:33
Matthias
Hallo
Die Spalte heißt Status und es gibt drei Eintragsmöglichkeiten:
- Leer
- Draft
- Final
Was bedeutet bei Dir Leer?
Steht das Wort "Leer" in der Zelle oder ist die Zelle leer?
Wenn die Zelle leer ist, kannst Du das mit der Formel:
=ANZAHLLEEREZELLEN(tabData[Status]) ausgeben.
Steht das Wort "Leer" in der Zelle, musst Du
die Gültigkeitsregel um dieses Wort erweitern.
Tabelle1

 DEF
6DatumStatusNote
713.01.2019Draft1
814.01.2019Final2
915.01.2019  
1016.01.2019Draft1
1117.01.2019Final1
1217.01.2019Draft2

Datengültigkeit der Tabelle
ZelleZulassenDatenEingabe 1Eingabe 2
E7Liste Draft;Final 
E8Liste Draft;Final 
E9Liste Draft;Final 
E10Liste Draft;Final 
E11Liste Draft;Final 
E12Liste Draft;Final 


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Anbei eine Beispieldatei.
https://www.herber.de/bbs/user/126855.xlsm
Gruß Matthias
Anzeige
AW: aber auch das geht mit Formeln
17.01.2019 14:07:16
Alexander
Hi Matthias,
danke für die Datei.
Ohne vba ist es auch voll simple. Excel an sich check ich voll ab auch Formeln, dass ist gar keine Thema.
Mich interessierts es das in VBAP zu machen. :-)
Bis jetzt bin ich soweit:
Private Sub Worksheet_Change(ByVal Target As Range)
'Variablen deklaration
Dim StatusSpalte As Integer
Dim NotenSpalte As Integer
Dim mw As Integer
Dim Tabrange As Variant
Dim WSName As Variant
'Variablen Zuweisung - Spalte in der der Status steht
StatusSpalte = 7
NotenSpalte = 6
WSName = ActiveSheet.Name
'Abfrage ob eine ?nderung sich ergeben hat
If Target.Column = StatusSpalte Then
ThisRow = Target.Row
If Target.Value = "final" Then
Cells(ThisRow, StatusSpalte + 1).Value = Now()
Cells(ThisRow, StatusSpalte + 2).Value = Application.UserName
ElseIf Target.Value = "draft" Then
Cells(ThisRow, StatusSpalte + 1).Value = ""
Cells(ThisRow, StatusSpalte + 2).Value = Application.UserName
Else
Cells(ThisRow, StatusSpalte + 1).Value = ""
Cells(ThisRow, StatusSpalte + 2).Value = ""
End If
End If
'Notenmittelwert errechnen und eintragen
If Target.Column = NotenSpalte Then
Tabrange = Range("tab" & WSName & "[[Note]]").Address
mw = Application.Average(Range(Tabrange))
ActiveSheet.Shapes.Range(Array("txtMarkInt")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = mw
End If
Range("a2").Select
End Sub
Jetzt fehl mir doch das mit final, draft und leer Zellen. Leer heißt es steht nix drin :-)
Anzeige
AW: aber auch das geht mit Formeln
17.01.2019 14:36:19
Alexander
AnzDraft = WorksheetFunction.CountIf(Range("tab" & WSName & "[[Status VP]]"), "draft")
hab es geschafft :-)
Tabrange = Range("tab" & WSName & "[[Status VP]]").SpecialCells(xlCellTypeBlanks).Count
Die Funktion klappt auch. nur wenn ich keine leeren zellen habe, kommt eine debug fehler.
kann ich den iwie abfangen?

50 Forumthreads zu ähnlichen Themen

VBA: abfragen, ob benannte Tabelle vorhanden ist
André

Moin zusammen,
wie kann ich per VBA abfragen, ob in einem Tabellenblatt bereits eine "benannte Tabelle" definiert ist?
Ich erstelle die Tabelle mit
Worksheets("Datensätze").ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Datenbereich"
Läuft das Makro dann ein weiteres mal, kom...
12.06.2009 14:18:00
Thread-ID: 1080995
2 Beiträge
Anzeige
Verweis auf Spalte und zeile einer Tabelle
Julian

Liebe Excelgemeinde,
angenommen ich habe eine Spalte [PersNummer] in einem als Tabelle formatiertem Bereich,
wie kann ich Zeile 5 aus Spalte [PersNummer] in eine Formel einbinden?
Vielen Dank schon im Voraus,
Julian t.
23.11.2009 15:51:02
Thread-ID: 1119514
6 Beiträge
Mehrere Spalten von einer Tabelle kopieren
einer


Hallo Excel Experten,
ich verzweifel an dem Versuch aus einer Tabelle Spalten in eine andere Tabelle zu kopieren!
Grundsätzlich sind beide Tabellen identisch (gleiche wks Anzahl, Grunddaten usw), jedoch soll in der ersten Tabelle ab Tabellenblatt 4 in Spalte A Änderungen vorgenomme...
24.01.2010 17:34:12
Thread-ID: 1131905
3 Beiträge
Anzeige
2 Spalten einer Tabelle einer anderen zufügen
Ralf

Hi Folks,
Ich habe eine csv-Tabelle mit 5000 aufgewählten Produkten aus einem Pool von 24000 Artikeln. Eine Zweite Tabelle (im txt-Format) beinhaltet alle 24000 Artikel mit gleichlautenden Artikelnummern aber anderen Infos. Jetzt möchte ich aus der Tabelle mit 24000 Artikeln zwei Infospalte...
20.10.2010 08:18:51
Thread-ID: 1183151
6 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
Inhalt einer ganzen Tabelle ansprechen
Ximena

Hallo :)
Ich programmiere gerade eine Makro im PowerPoint. Ich weiss, das hier ist ein Excel Forum, aber da ich hier die besten Antworten auf meine Fragen bekomme, kann ich es ja dann vielleicht aufs PPT duplizieren :)
Nun gut, ich suche auf einem Slide nach dem Shape, das eine Tabelle...
31.05.2012 11:00:22
Thread-ID: 1265522
3 Beiträge
Spalte X aus 20+ Blättern in einer Tabelle kopiere
Jones

Hallo,
ich muss regelmäßig aus einer Exceltabelle, Text aus bestimmten Blättern kopieren und die Wörter mit Notepad++ zählen.
Ich suche eine Möglichkeit entweder:
1. die betroffenen Spalten aus den betroffenen Blättern zu kopieren
und in eine neue Tabelle einfügen und dann den d...
05.02.2013 11:26:39
Thread-ID: 1297710
10 Beiträge
VBA Seite in Tabelle ansprechen
Müller

Hallo.
Ich habe ein Skript, welches mir meine Daten in Datenpaare trennt und dann per pagesetup an die Seitengröße anpasst.
Nun habe ich das Problem, dass die Daten teilweise so getrennt werden, dass ein Teil auf Seite 1 steht und der andere Teil in der ersten Zeile der Seite 2.
Gib...
09.04.2015 13:00:40
Thread-ID: 1419902
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
7
5
2
4
5
4
2
9
2
4
2
2
11
1
3
5
2
4
19
2
24
6
3
1