Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige