Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlinks erzeugen bei freigebener Arbeitsmappe

Hyperlinks erzeugen bei freigebener Arbeitsmappe
02.04.2007 16:17:35
Dirk
Hallo,
ich hätte da mal ein Problem und zwar mit dem Erstellen von
Hyperlinks nach Freigabe der Arbeitsmappe für mehrere Benutzer.
Ich frage per VBA das Spendertabelleblatt("Tabelle1") in 2 Spalten über
mehrere Zellen ab, ob der Buchstabe "F" vorhanden ist.
Sollte "F" vorhanden sein, werden die Daten, aus Kommentaren der
danebenliegenden Zellen, in das 2te Tab.Blatt ("Fehlteile") übertragen.
Danach wird ein Hyperlink,mit einem Verweis auf die Fehlteilzelle,
auf das erste Tabellenblatt erzeugt. Funktioniert auch einwandfrei,
wenn ich im Exclusiv Modus arbeite. Sobald ich die Exceldatei für
andere Kollegen per "Arbeitsmappe freigeben"
freischalte werden die Hyperlinks nicht mehr erzeugt.
Hier der Code für obiges Problem.

Private Sub CommandButton6_Click()
Sheets("Fehlteile").Range("a2:G100").ClearContents
Dim i, j, k, l As Integer
Dim Bezeichner, Wert, Kom1, Kom2, Kom3 As Variant
Application.ScreenUpdating = False
l = 3
Kom1 = ""
Kom2 = ""
Kom3 = ""
Sheets("Tabelle1").Select
Endetab = Sheets("Tabelle1").Cells(Rows.Count,
1).End(xlUp).Offset(1, 0).Row
Endetab = Endetab - 1
For i = 21 To Endetab
'test = Left(ActiveSheet.Cells(i, 34), 1)
k = 1
Kom3 = ""
If Left(ActiveSheet.Cells(i, 5), 1) = "F" Or
Left(ActiveSheet.Cells(i, 5), 1) = "f" Or Left(ActiveSheet.Cells(i, 34), 1)
= "F" Or Left(ActiveSheet.Cells(i, 34), 1) = "f" Then
On Error Resume Next
Bezeichner = ActiveSheet.Cells(i, 5)
Wert = ActiveSheet.Cells(i, 1)
Kom1 = Cells(i, 10).Comment.Text
Kom2 = Cells(i, 13).Comment.Text
Kom3 = Cells(i, 34).Comment.Text
' Werte kopieren in Tabellenblatt Fehlteile
Sheets("Fehlteile").Select
ActiveSheet.Cells(l, 3) = Wert
ActiveSheet.Cells(l, 5) = Kom1
ActiveSheet.Cells(l, 6) = Kom2
ActiveSheet.Cells(l, 7) = Kom3
ActiveSheet.Cells(l, 2) = "Spalte " & i
ActiveSheet.Hyperlinks.Add
Anchor:=Sheets("Fehlteile").Cells(l, 1), Address:="", SubAddress:= _
"Tabelle1!" & "A" & i, TextToDisplay:=Wert
l = l + 1
k = k + 2
Kom1 = ""
Kom2 = ""
Kom2 = ""
Wert = ""
End If
Sheets("Tabelle1").Select
'Next j
Next i
Application.ScreenUpdating = True
MsgBox "Fehlteile aufgelistet"
Sheets("Fehlteile").Select
End Sub

Schönen Dank für eure Hilfe.
Gruss
Dirk

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks erzeugen bei freigebener Arbeitsmappe
02.04.2007 20:40:00
Hubert
Hi,
das ist bei Freigabenicht möglich!
mfg Hubert
AW: Hyperlinks erzeugen bei freigebener Arbeitsmappe
04.04.2007 17:53:00
Dirk
Hallo Hubert, danke für die , wenn auch sehr knappe, Antwort. Schade eigentlich. Gibt es eine andere Möglichkeit einen Verweis auf eine bestimmte Zelle zu erzeugen, eventuell mit einem Button?
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige