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

per VBA nach Pivot-Tabelle in Arbeitsmappe suchen

Forumthread: per VBA nach Pivot-Tabelle in Arbeitsmappe suchen

per VBA nach Pivot-Tabelle in Arbeitsmappe suchen
30.03.2007 20:17:00
Eckart
Hallo zusammen,
wie kann ich möglichst einfach in einer Arbeitsmappe mit mehreren Arbeitsblättern in einem Konstrukt wie ...
For Each wks In Worksheets
...
Next wks
... nach Arbeitsblättern suchen, die eine Pivot-Tabelle enthalten?
Für Hinweise bedanke ich mich schon im Voraus.
Gruß Eckart
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per VBA nach Pivot-Tabelle in Arbeitsmappe suc
30.03.2007 21:17:31
Eckart
Danke, habe die Lösung selbst gefunden:
For Each wks In Worksheets
If wks.PivotTables.Count > 0 Then
Debug.Print "Die Tabelle " & wks.Name & " enthält " & wks.PivotTables.Count & " Pivottabelle(n)"
End If
Next wks
Gruß
Eckart
Anzeige

Forumthreads zu verwandten Themen

Problem beim Öffnen von Word aus Excel
Word
Hallo,
ich benötige eure Hilfe. Ich habe auf einem Rechner eine Excel-Datei mit Excel 15.0 und auf dem anderen Rechner Excel 16.0.
Mit dieser Excel-Datei möchte ich eine Word-Vorlage öffnen, welche einen Zugriff auf Excel macht.
Wenn ich diese Datei veranlasse die Wordvorlage zu öffnen k...
07.11.2021 14:07:44
Thread-ID: 1855415
5 Beiträge
Suchen / Ersetzen VBA
Taz

Hallo zusammen,
ich habe folgendes Makro:
Sub Ersetzen_Funktion() Dim s_Such As String Dim s_Ersetz As String Dim Blatt As Worksheet s_Such = InputBox("Geben Sie den Suchbegriff ein!") s_Ersetz = InputBox("Geben Sie den Ersetzbegriff ein!") For Each o In Range("A1", "B6") o.Value = Rep...
27.02.2006 21:32:25
Thread-ID: 738396
2 Beiträge
Wert in Tabellenblatt finden
Dirk

Hallo liebe Experten,
ich hoffe Ihr könnt mir weiter helfen. Mit VBA möchte ich aus einer Tabelle mit ca. 10.000 Einträgen einen bestimmten Wert suchen. Alle Werte bestehen aus 17 Zeichen (Fahrgestellnummern). Kein Problem bei kompletter Eingabe. Als Suchfunktion sollen aber nur die letzte...
13.01.2021 16:46:01
Thread-ID: 1805514
2 Beiträge
Listbox; Eintrag eines alternativen Wertes
Ingo

Liebe vba-Experten,
ich benötige eure Unterstützung.
Vorbemerkung:
Hier im Forum habe ich einen Beitrag / Code gefunden, mit dem ich eine Listbox mit gesuchten Einträgen (z. B. nach einem Kundennamen) befüllen kann. Dies funktioniert dynamisch und wird mit jedem Zeichen, welches ich...
31.05.2017 15:52:31
Thread-ID: 1561401
3 Beiträge
Text splitten III.
bernie

Hallo,
ich hatte bereits zum Thema mehrere Antworten bekommen. Gerd L hatte gefragt, was ich denn von Luc verwendet hatte, um Text (mehr als 265 Zeichen) splitten zu können.
Luc hatte auf verweisen:
Rem Fkt fügt Zeilenumbrüche in Text an prädest Stelle ein (teilw erweit Var zu T...
30.11.2010 03:27:52
Thread-ID: 1189128
4 Beiträge
VBA: Makro-Zeile änder
Charly

Nabend
vor einiger Zeit hab Ich nen Code via Googe gefunden,
diesen nutze Ich hin u. wieder.
Ist es Möglich an statt im ganzen Modul nur in Sub´s zu Suchen?
Option Explicit Private Sub Cbu_Suchen_Click() Zeichen_im_VBA_Modul_ersetzen ' Zeichen_in_den_VBA_Modulen_ersetzen Unlo...
10.01.2020 21:22:16
Thread-ID: 1733421
6 Beiträge
TXT-Import - Währung erhalten
HansP

Hallo! Ich muss eine TXT-Datei nach Excel importieren. Dabei ist in der TXT-Datei unter anderem der Preis hinterlegt. Wie kann ich bei dem Import über VBA einstellen, das alle Felder im TXT-File als "Text" importiert werden, damit die Preise nicht zerschossen werden.
Weiterhin müsste ich...
03.11.2011 10:29:23
Thread-ID: 1236384
9 Beiträge
Formel zu lang beim Suchen und ersetzen
Matthias

Hallo zusammen,
wie bekomme ich es hin in Zellen zu suchen und zu ersetzen wenn dort über 600 Zeichen vorhanden sind. Es kommt dann beim ersetzen immer die Meldung "Formel zu lang".
Wie geht das Über VBA, bzw. Wo ist der Fehler?
Sub Suchen_Ersetzen() Dim s_Such As String Dim s_Erse...
17.08.2004 23:55:08
Thread-ID: 471336
3 Beiträge
String suchen
Chris

Hallo Forum,
ich habe eine Label mit unterschiedlichen langen Zeichen. Ich möchte per VBA von rechts gesehen, dass 24. bis zum 21. Zeichen ausgeben. Soweit ich weiß Zählt MID immer von links, da aber die Anzahl der Strings von links immer unterschiedlich ist, hilft mir das nicht.
Altern...
05.11.2018 17:16:16
Thread-ID: 1655422
4 Beiträge
Text suchen und -1 Zelle anderen Text eintragen
albin

Hallo zusammen
Komme mal wieder nicht weiter.
Ich suchen den Text "Geburtstag" in Spalte D, ab Zeile 3. Wenn dieser gefunden wurde, dann schreibe eine Zelle Tiefer, einen anderen Text rein. Der Suchebegriff kann mehrmals vorkommen in D vorkommen.
Wenn ich nur ein Such-Zeichen benütz...
09.05.2017 02:54:26
Thread-ID: 1557131
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum