Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn Selektion nicht möglich, dann .....

wenn Selektion nicht möglich, dann .....
13.01.2004 08:58:35
Jutta
Hallo,
wie muß ich das Makro abändern, dass, wenn die Selektion nicht möglich ist, die Selektion "leer" gewählt wird ?
....
Sheets("Ratio n.Mon.oM").Select
ActiveSheet.PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage = _
"Indir. MA"
......
Gruß
Jutta

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

Betreff
Datum
Anwender
Anzeige
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 11:06:03
Karl-Otto Reimann
Hallo Jutta
Versuch das:
Sheets("Ratio n.Mon.oM").PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage = _
"Indir. MA"
mfG KO
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 11:27:25
Jutta
Hallo,
ich verstehe den Unterschied zu meiner Variante ehrlich gesagt nicht.
Deine funktioniert auch nicht. Das Problem ist, dass in dieser Pivot Tabelle "Indir.MA" noch nicht ausgewählt werden kann, weil es das z.Zt. noch nicht gibt. Das kommt erst im Laufe des Jahres.Damit ich aber nicht laufend kontrollieren muß ob schon was da ist, wollte ich das Makro so ändern, dass falls "Indir. MA" noch nicht da ist, "leer" gewählt werden soll. Vielleicht muß man das ja auch über if...then machen. Weiß aber nicht wie.
Gruß
Jutta
Anzeige
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 11:31:46
Karl-Otto Reimann
Meine Variante war nur kürzer, aber wenn es etwas noch nicht gib, wie soll
es dann ausgewählt werden?
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 11:37:14
Jutta
Hallo,
ich habe mittels Pivotdatenverknüpfungen erstellte Tabelle (3 Pivottabellen als Basis). Außerdem habe ich 3 Button mit denen ich dann wahlweise entweder "Gesamt", "Ind.MA" oder "Direkte" anzeigen will.Und da hakt es, wenn in einer Pivot-Tabelle ein Kriterium noch nicht ausgewählt werden kann da noch nicht vorhanden. Und da sollte eben anstelle des nicht vorhandenen Kriteriums "leer" gewählt werden. Dann stimmt die Tabelle auch wieder.
Gruß
Jutta
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 11:40:13
Karl-Otto Reimann
Da hilft vielleicht "onError", aber dazu muß man den Code sehen.
Anzeige
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 13:00:07
Jutta
Kein Problem,
hier ist er:

Sub Indirekte()
Application.ScreenUpdating = False
Sheets("Ratio n.Mon.").Select
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("UKA").CurrentPage = _
"Indir. MA"
ActiveSheet.PivotTables("PivotTable2").PivotFields("UKA").CurrentPage = _
"Indir. MA"
Sheets("Ratio n.Mon.oM").Select
ActiveSheet.PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage = _
"Indir. MA"
Application.ScreenUpdating = True
End Sub


Entsprechend habe ich dann natürlich noch je einen für "Gesamt" und "Direkte".
Gruß
Jutta
Anzeige
AW: wenn Selektion nicht möglich, dann .....
13.01.2004 13:57:10
Karl-Otto Reimann
Immer wieder ein Erlebnis, diese Kreuztabellen!
Ich hoffe, es hilft Dir weiter.

Sub Indirekte()
Dim CurrentPage
If CurrentPage = "" Then Exit Sub
Sheets("Ratio n.Mon.").Select
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("UKA").CurrentPage = _
"Indir. MA"
ActiveSheet.PivotTables("PivotTable2").PivotFields("UKA").CurrentPage = _
"Indir. MA"
Sheets("Ratio n.Mon.oM").Select
ActiveSheet.PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage = _
"Indir. MA"
End Sub

AW: wenn Selektion nicht möglich, dann .....
13.01.2004 15:00:34
Jutta
Hallo,
bei
If CurrentPage = "" Then Exit Sub
steigt das Makro ganz aus. Die Seite ist ja nicht leer, es gibt nur noch kein "Indir.MA".
Ich habe es jetzt schon so probiert:

Sub Indirekte()
Application.ScreenUpdating = False
Sheets("Ratio n.Mon.").Select
If ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("UKA").CurrentPage <> _
"Indir. MA" Then
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("UKA").CurrentPage = _
"Indir. MA"
Else
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("UKA").CurrentPage = _
"(leer)"
End If
If ActiveSheet.PivotTables("PivotTable2").PivotFields("UKA").CurrentPage <> _
"Indir. MA" Then
ActiveSheet.PivotTables("Pivot-Tabelle2").PivotFields("UKA").CurrentPage = _
"Indir. MA"
Else
ActiveSheet.PivotTables("Pivot-Tabelle2").PivotFields("UKA").CurrentPage = _
"(leer)"
End If
Sheets("Ratio n.Mon.oM").Select
If ActiveSheet.PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage <> _
"Indir. MA" Then
ActiveSheet.PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage = _
"Indir. MA"
Else
ActiveSheet.PivotTables("Pivot-Tabelle3").PivotFields("UKA").CurrentPage = _
"(leer)"
End If
Application.ScreenUpdating = True
End Sub

Geht so immer noch nicht, weil er ja "Indir. MA" nicht findet. Aber vielleicht hast du ja noch eine Idee....
Gruß
Jutta
Anzeige

300 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge

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
3
5
15
5
4
2
2
4
9
1
10
2
7
5
4
3
1
10
3
4
23
3
1
6
6