Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch aktualisieren und kopieren

Automatisch aktualisieren und kopieren
14.10.2008 14:21:00
Ralf
Hallo Excel - Experten,
ich habe eine Excel - Datei mit zwei Tabellenblättern.
Nun möchte ich von Tab.1 aus die Pivottab. in Tab. 2 aktualisieren
und gleichzeitig die Felder ( in Tab.2 ) A 9 bis A 10.000 mit der 1
aus A 5 multiplizieren ( wegen den Zahlenformats :-)
Meine bisherigen Versuche waren leider nur von
"Laufzeitfehlermeldungen" gekrönt :-( 424, 1004,...
Hat hierzu jemand eine Idee ?
Bin echt für jeden Tipp dankbar !!!
Viele Grüße
Ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch aktualisieren und kopieren
15.10.2008 09:33:53
fcs
Hallo Ralf,
die Zellen innerhalb einer Pivot-Tabelle können nicht durch Kopier- oder Rechenoperatioen geändert werden.
Du muss also entweder die Texte in den Ursprungsdaten in Zahlen konvertieren oder die in der Pivottabelle vorhandenen Text-Zahlen in einer Spalte außerhalb der Pivottabelle in Zahlen umwandeln.
Gruß
Franz
Beispielmakro (im VBA-Editor unter der Tabelle einfügen, die den Pivotbericht enthält)

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvField As PivotField, rngZelle As Range
Const intSpaltenOffset As Integer = 5
Set pvField = Target.RowFields(1) '1. Zeilenfeld in Pivotbericht
With pvField
'Datenbereich des Zeilenfeldes formatieren
.DataRange.NumberFormat = "#,##0.00"
'Inhalte in Spalte für konvertierte Zahlen löschen
Me.Columns(.DataRange.Column + intSpaltenOffset).ClearContents
'Name des Zeielnfeldes eintragen
.DataRange.Range("a1").Offset(-1, intSpaltenOffset).Value = .Name
'Zahlenwerte konvertieren
For Each rngZelle In .DataRange
If IsNumeric(rngZelle) Then
rngZelle.Offset(0, intSpaltenOffset).Value = CDbl(rngZelle.Value)
End If
Next
End With
End Sub


Anzeige
AW: Automatisch aktualisieren und kopieren
15.10.2008 11:10:59
Ralf
Hallo Franz,
vielen Dank für Deine supergute Antwort !!!
Es ist mir ziiiiiiiiemlich peinlich, aber ich habe einen Fehler gemacht,
ich habe nämlich vergessen zu erwähnen, daß die Pivottabelle weiter rechts
in Tab.2 steht und die Spalte A ( wo die Zellen mit der 1 multipliziert werden sollen)
ganz normale Zelle sind ( keine Pivottabelle :-)
Es wäre ganz toll, wenn Du mir vor diesem Hintergrund nochmal antworten würdest !!!
Viele Grüße
Ralf
AW: Automatisch aktualisieren und kopieren
15.10.2008 12:11:03
fcs
Hallo Ralf,
dann muss das Makro etwa wie folgt aussehen. Wenn du immer mit 1 multiplizieren willst, dann kanst du die Multiplikation im Code natürlich auch weglassen.
Gruß
Franz

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvField As PivotField, rngZelle As Range
Set pvField = Target.RowFields(1) 'oder Target.RowFields("FeldName")
'vorhandene Inhalte in Spalte 1 für konvertierte Zahlen löschen
With Me
.Range(.Cells(pvField.DataRange.Row, 1), .Cells(.Rows.Count, 1).End(xlUp)).ClearContents
End With
With pvField
'Name des Zeilenfeldes in Spalte 1 eintragen
Me.Cells(.DataRange.Row - 1, 1).Value = .Name
'Zahlenwerte im Zeilebereich konvertieren und in Spalte 1 eintragen
For Each rngZelle In .DataRange
If IsNumeric(rngZelle) Then
Me.Cells(rngZelle.Row, 1).Value = CDbl(rngZelle.Value) * Me.Range("A9")
Else
Me.Cells(rngZelle.Row, 1).Value = rngZelle.Value
End If
Next
End With
End Sub


Anzeige
Danke Franz !!!
15.10.2008 14:16:00
Ralf
Hallo Franz,
vielen Dank für Deine erneute große Mühe !
Ich fürchte nur, ich versteh´s leider nicht und
daher fällt mir auch das anpassen mit den
Tabellennamen ziiiiiemlich schwer !
Vielleicht muß ich nochmal drüber schlafen :-)
Viele Grüße
Ralf

300 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Monat eingeben und dann
Kurt

Guten Morgen Zusammen,
ich möchte gern in der Zelle "C1" eine Zahl eingeben, z.b. 8, dann soll
in der Zelle C2 der Monat erscheinen u. zwar das ENDE 8 = 31.08.2008,
geht das ?
mfg Kurt
11.08.2008 09:53:00
Thread-ID: 1000728
6 Beiträge
Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Anzeige

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