Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Verknüpfungen dynamisch aktualisieren
zurück: Makroaufruf aus Formel heraus weiter: Makros in Excel97 aktivieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
wolfmizzo
VBA-Einsteiger


Verfasst am:
26. Apr 2007, 15:30
Rufname:

Verknüpfungen dynamisch aktualisieren - Verknüpfungen dynamisch aktualisieren

Nach oben
       Version: Office 2k (2000)

Hallo zusammen,

ich habe eine Gesamtliste, die sich aus ca. 30 Einzelsheets aktualisieren soll.
Das Problem besteht darin, dass die Zeilenanzahl der Einzelsheets nicht immer konstant ist, d.h., dass z.B. heute aus Einzelliste "1.xls" 100 Datensätze übertragen werden soll und morgen 200, also muss der Verknüpfungsbereich voll flexibel sein.

Ich habe das so gelöst:
Makro1 (in jeder Einzelliste):
Liest Zeilenanzahl in Einzellisten und schreibt Zeilenanzahl in eine Zelle
Makro2 (in der Gesamtliste):
Durchgeht alle Einzellisten als Array, nimmt Zeilenanzahl aus jeder Einzelliste und orientiert an dieser Zeilenanzahl den Verknüfungsbereich.


Das ganze geht gut, aber es dauert mir etwas lange, ca. 1min.

Hat jemand ne Idee, wie das entweder schneller oder Sourcecode-technisch kürzer ablaufen könnte?!

Gruss
WernerHo
naja, ein winziges bisschen geht.....


Verfasst am:
27. Apr 2007, 18:56
Rufname:
Wohnort: Tor zur Welt

AW: Verknüpfungen dynamisch aktualisieren - AW: Verknüpfungen dynamisch aktualisieren

Nach oben
       Version: Office 2k (2000)

Hallo wolfmizzo
nur mal am Rande, vielleicht solltest Du mal posten, was Du hast, das würde eventuell einiges erleichtern.
Gruß
Werner

_________________
Alle Menschen sind klug..........
Die einen vorher,
die anderen nachher
wolfmizzo
VBA-Einsteiger


Verfasst am:
04. Mai 2007, 13:00
Rufname:


AW: Verknüpfungen dynamisch aktualisieren - AW: Verknüpfungen dynamisch aktualisieren

Nach oben
       Version: Office 2k (2000)

Hallo,
hab leider keine Admin Recht, deswegen poste ich den Code mal so:
Habe das Problem mitlerweile soweit gelöst, allerdings läuft es schon etwas langsam, wo sind Einsparpotenziale?
Merci!

Sub CommandButton1_Click() 'Aktualisiert Gesamtliste mit Daten aller Bänder

Dim numberRows, zeile, spalte, springZurück, baenderCounter, test, z, _
totalRows, startZeile, bandStart, bandEnde
Dim baender
baender = Array("band1", "band2",...., "bandN")
Dim counter
Dim c As Range 'Deklarationen

counter = 0
z = 2 'Initialisierung einiger Variablen

For baenderCounter = 0 To 26
Workbooks.Open Filename:=baender(baenderCounter) & ".xls"
Workbooks(baender(baenderCounter)).Worksheets("Teil 2-10").Activate

For Each c In Worksheets("Teil 2-10").Range("B10:B1000").Cells
If Not (c.Value = 0) Or Not c.Value = "" Then counter = counter + 1
Next 'innere For-Schleife zählt nichtleere Zeilen

Workbooks("Teilematrix_Gesamt").Activate
Worksheets("Anz_TTN_pro_Band").Range("A" & z).Value = baender(baenderCounter)
Worksheets("Anz_TTN_pro_Band").Range("B" & z).Value = counter + 9
Workbooks(baender(baenderCounter)).Close SaveChanges:=False
z = z + 1
counter = 0
Next 'Äußere For-Schleife durchgeht Array aller Einzellisten und speichert Zeilenanzahl in Gesamtliste ab

z = 2
startZeile = "A" & 10
bandStart = "AP" & 10
totalRows = 0
For baenderCounter = 0 To 26
Workbooks.Open Filename:=baender(baenderCounter) & ".xls"
Windows("Teilematrix_Gesamt").Activate
Worksheets("Anz_TTN_pro_Band").Activate
numberRows = Worksheets("Anz_TTN_pro_Band").Cells(z, 2).Value
zeile = "A" & totalRows + numberRows
spalte = "AO" & totalRows + numberRows
bandEnde = "AP" & totalRows + numberRows

Worksheets("Gesamtliste").Activate
Range(bandStart + ":" + bandEnde).Value = baender(baenderCounter)
Range(startZeile).Select
ActiveCell.FormulaR1C1 = "='[" + baender(baenderCounter) + ".xls]Teil 2-10'!R[" & -springZurück & "]C"
Range(startZeile).Select
Selection.AutoFill Destination:=Range(startZeile + ":" + zeile), Type:=xlFillDefault
Range(startZeile + ":" + zeile).Select
Selection.AutoFill Destination:=Range(startZeile + ":" + spalte), Type:=xlFillDefault
Worksheets("Anz_TTN_pro_Band").Cells(z, 2).Value = numberRows - 9
Worksheets("Anz_TTN_pro_Band").Cells(z, 3).Value = ""
Workbooks(baender(baenderCounter)).Close SaveChanges:=False
totalRows = totalRows + numberRows
startZeile = "A" & totalRows + 1
bandStart = "AP" & totalRows + 1
springZurück = totalRows - 9
z = z + 1
Next 'Diese For-Schleife aktualisiert die Gesamtliste anhand der im Sheet "Anz_TTN_pro_Band" abgelegten Zeilenanzahlen der Einzellisten

Range("A10").Activate

For d = 10 To totalRows
Worksheets("Gesamtliste").Activate
Range("B" & d).Activate
If Range("B" & d).Value = 0 Then
Range("B" & d).EntireRow.Delete
If Range("B" & d) = "" Then Exit For
d = d - 1
End If
Next 'Löscht Zeilen deren TTN den Wert 0 oder "" hat

Range("A1").Select
End Sub
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 
Keine neuen Beiträge Excel Formeln: Alle Verknüpfungen sind weg 5 Oliver1 726 16. Okt 2006, 16:25
Gast Alle Verknüpfungen sind weg
Keine neuen Beiträge Excel Formeln: Datum automatisch auf einen Wochentag aktualisieren 1 Sascha_B. 837 16. Okt 2006, 13:52
Raimund Datum automatisch auf einen Wochentag aktualisieren
Keine neuen Beiträge Excel Formeln: Verknüpfungen? 3 Reto_m 531 13. Okt 2006, 11:55
wwwilli Verknüpfungen?
Keine neuen Beiträge Excel Formeln: Verknüpfungen zw. Tabellenblättern (Kopieren/Ausschneiden) 4 Lenzi 948 21. Aug 2006, 20:14
Lenzi Verknüpfungen zw. Tabellenblättern (Kopieren/Ausschneiden)
Keine neuen Beiträge Excel Formeln: OfficeUmstellung XP auf 2003 - Werte aktualisieren 0 zu_besuch 617 02. Aug 2006, 18:17
zu_besuch OfficeUmstellung XP auf 2003 - Werte aktualisieren
Keine neuen Beiträge Excel Formeln: Mehrere Wenn Dann Verknüpfungen 5 Matti 7267 09. Mai 2006, 07:36
Gast Mehrere Wenn Dann Verknüpfungen
Keine neuen Beiträge Excel Formeln: Verknüpfungen im Kommentarfeld möglich? 5 FConny 823 01. März 2006, 17:47
FConny Verknüpfungen im Kommentarfeld möglich?
Keine neuen Beiträge Excel Formeln: Datenreihen in Diagramm dynamisch nach Zelleninhalt 2 Gast 7857 10. Feb 2006, 23:30
fridgenep Datenreihen in Diagramm dynamisch nach Zelleninhalt
Keine neuen Beiträge Excel Formeln: Verknüpfungen mit Blattschutz aktualisieren 1 Filou050962 940 26. Jan 2006, 23:27
fridgenep Verknüpfungen mit Blattschutz aktualisieren
Keine neuen Beiträge Excel Formeln: Dynamisch kummulierte Kosten bilden 5 Perez 1028 06. Dez 2005, 17:44
rainberg Dynamisch kummulierte Kosten bilden
Keine neuen Beiträge Excel Formeln: Ausdruck einer Tabelle dynamisch steuern 0 +++Max+++ 599 22. Nov 2005, 02:00
+++Max+++ Ausdruck einer Tabelle dynamisch steuern
Keine neuen Beiträge Excel Formeln: Verknüpfungen löschen (geht nicht) 4 eschmid 3078 18. Okt 2005, 11:31
eschmid Verknüpfungen löschen (geht nicht)
 

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