Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zwei VBA Sub's miteinander verbinden.
zurück: MinutenMittelwerte weiter: Makro-Code verkürzen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Lateski
Gast


Verfasst am:
10. Apr 2014, 22:46
Rufname:

Zwei VBA Sub's miteinander verbinden. - Zwei VBA Sub's miteinander verbinden.

Nach oben
       Version: Office 2010

Guten Tag,

ich habe folgendes Problem.

Ich habe zwei Sub's in meinem Makro und beim Ausführen wird das Zweite "ignoriert".

Ich habe mich jetzt schon erkundigt an was es liegen könnte, konnte aber noch keine Lösung finden.

Ich hoffe Ihr könnt mir helfen!

Grüße Lateski

(Hier die zwei Sub's im Makro):

Public Sub Worksheet_Change(ByVal Target As Range)
Dim leZeile As Long

MsgBox "Step 1"

leZeile = CLng(Range(Range(Cells(1, 1), Cells(Rows.Count, 7)).Find(What:="*", _
After:=Range("A" & Rows.Count), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address).Row)

If Intersect(Target, Range(Cells(1, 2), Cells(leZeile, 5))) Is Nothing Then Exit Sub

Cells.Sort Key1:=Range(Cells(2, 6), Cells(leZeile, 6)), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

MsgBox "Done"

End Sub

Public Sub ActiveSheet_PivotTables()

ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh

End Sub
werni
Solala


Verfasst am:
11. Apr 2014, 06:00
Rufname: werni
Wohnort: Ennenda GL


AW: Zwei VBA Sub's miteinander verbinden. - AW: Zwei VBA Sub's miteinander verbinden.

Nach oben
       Version: Office 2010

Hallo

Ein Versuch (schreibe folgenden Code in ein normales Modul)
Code:
option explicit
sub Pivot2_aktualisieren   
   PivotTables("PivotTable2").PivotCache.Refresh
end sub


In deinem Code Worksheet_Change nach der MSGBOX diese Zeile einfügen
Code:
call Pivot2_aktualisieren

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Lateski
Gast


Verfasst am:
11. Apr 2014, 08:30
Rufname:

AW: Zwei VBA Sub's miteinander verbinden. - AW: Zwei VBA Sub's miteinander verbinden.

Nach oben
       Version: Office 2010

Hallo werni,

danke für deine Antwort!
Ist schon ein guter Ansatz jedoch kommt bei mir die Fehlermeldung: Sub oder Function nicht definiert.
Wenn ich anstatt "PivotTables("PivotTable2").PivotCache.Refresh" ,
"Activesheet.PivotTables("PivotTable2").PivotCache.Refresh" eingebe kommt Laufzeitfehler 1004.

Was soll ich machen?
werni
Solala


Verfasst am:
11. Apr 2014, 10:55
Rufname: werni
Wohnort: Ennenda GL


AW: Zwei VBA Sub's miteinander verbinden. - AW: Zwei VBA Sub's miteinander verbinden.

Nach oben
       Version: Office 2010

Hallo

Mein Vorschlag war nur eine Vermutung.

Wenn du aber zu Beginn des aufgerufenen Codes Pivot2_aktualisieren
Das Blatt PivotTables("PivotTable2") selektierst sollte/könnte es stimmen

Code:
option explicit
sub Pivot2_aktualisieren
   PivotTables("PivotTable2").select   
   ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
end sub

Auch dieser Vorschlag ist ungetestet.

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Verknüpfung von zwei Mappen 2 Schneeschieber 1015 26. März 2006, 12:49
fridgenep Verknüpfung von zwei Mappen
Keine neuen Beiträge Excel Formeln: Worin liegt der Hintergrund für die zwei Datumswertfunktione 4 ladau66 681 24. März 2006, 10:16
ladau66 Worin liegt der Hintergrund für die zwei Datumswertfunktione
Keine neuen Beiträge Excel Formeln: zwei unterschiedliche Formate multiplizieren 3 heiko 73 2610 19. März 2006, 17:53
Arnim zwei unterschiedliche Formate multiplizieren
Keine neuen Beiträge Excel Formeln: exceltabellen miteinander verknüpfen 3 IT-Faust 7702 14. März 2006, 11:03
Klaus-Dieter exceltabellen miteinander verknüpfen
Keine neuen Beiträge Excel Formeln: Zellen verbinden ohne Datenverlust 2 Gast 3160 13. März 2006, 13:44
Dudo Zellen verbinden ohne Datenverlust
Keine neuen Beiträge Excel Formeln: Eine von zwei Zellen eingeben, andere berechnen 5 elf99 1010 10. Feb 2006, 11:42
fridgenep Eine von zwei Zellen eingeben, andere berechnen
Keine neuen Beiträge Excel Formeln: verbinden von formeln 4 ilcapo 479 07. Feb 2006, 18:25
ilcapo verbinden von formeln
Keine neuen Beiträge Excel Formeln: zwei Zahlen vergleichen 2 Sebastian_Computer 1193 01. Feb 2006, 18:40
ransi zwei Zahlen vergleichen
Keine neuen Beiträge Excel Formeln: Verknüpfung zwischen zwei Tabellenblättern 15 schwandinho 4258 10. Nov 2005, 17:25
schwandinho Verknüpfung zwischen zwei Tabellenblättern
Keine neuen Beiträge Excel Formeln: Dividieren von zwei Tabellen 2 Alfonso 1185 10. Okt 2005, 12:05
Arnim Dividieren von zwei Tabellen
Keine neuen Beiträge Excel Formeln: TabellenStatistik Spalten miteinander vergleichen,zählen 10 E133 1113 27. Sep 2005, 15:39
c0bRa TabellenStatistik Spalten miteinander vergleichen,zählen
Keine neuen Beiträge Excel Formeln: Minutendifferenz zwischen zwei Zeitangaben 3 Inge 2322 24. Mai 2005, 09:57
Inge Minutendifferenz zwischen zwei Zeitangaben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project