Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verknüpfungen aktualisieren

Forumthread: Verknüpfungen aktualisieren

Verknüpfungen aktualisieren
14.06.2006 11:36:50
Dietlind
Hallo nochmal,
die Erklärungsdatei ist jetzt nachstehend verlinkt:
https://www.herber.de/bbs/user/34348.xls
Ich benötige dringend Eure Hilfe.
Gruß
Dietlind
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen aktualisieren
14.06.2006 14:34:24
fcs
Hallo Dietlind,
eine Alternative wäre, die Formeln per Makro in direkte Verweise zu verwandeln und auf INDIREKT zu verzichten. Dieses Makro kann man dann manuell (z,B, per Button) oder mit dem Ereignis Workbook_Open oder Sheet_Activate starten, so dass die Formeln automatisch bzw. nach Bedarf aktualisert werden.

Sub Formelnaktualisieren()
Dim wks As Worksheet
Set wks = ActiveWorkbook.Sheets("Tabelle1")
Dim Zeile As Long, Zeile1 As Long
Zeile1 = 20 '1. Zeile mit Formel
Zeile = Zeile1
'Formel in Spalte E erzeugen
With wks
Do Until IsEmpty(.Cells(Zeile, "A"))
'Formel in Spalte E erzeugen
.Cells(Zeile, "E").Formula = "=HLOOKUP(A" & Zeile & "," & .Cells(Zeile, "D").Value & _
",3,False)"
'Formel in Spalte G erzeugen
.Cells(Zeile, "G").Formula = "=COUNTIF(" & .Cells(Zeile, "F").Value & ",""K"")"
Zeile = Zeile + 1
Loop
End With
End Sub

mfg
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige