MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 18.01.2018, 08:56   #1
talolo
Neuer Benutzer
Neuer Benutzer
Standard VBA - neu erstellte Zellen mit hyperlink verknüpfen

Guten Morgen zusammen,

ich sitze seit einer Woche an einem Problem und habe im Forum schon alles durchgesucht aber nichts passendes gefunden

Durch einen Buttonclick werden Daten aus einem anderen Sheet zusammengesucht und in eine neue Zeile im aktiven Blatt gesetzt. In Spalte A ist die Nummerierung. Diese würde ich jetzt gerne mit einem Hyperlink versehen.
Sprich, anstatt das nur Auto_1 in Spalte A steht, soll Auto_1 nun ein Hyperlink zu einem Laufwerkpfad haben.

Ich hab es bis jetzt so probiert, aber leider klappt das nicht...
Kann mir jemand da bitte helfen?
Code:

Cells(Zeile, SpaltenNr("Auto_ #")).Value = FrmNeuerVorgang.TxtSKNummer.Text
           ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Y:"
           Cells(i, 1).Value , TextToDisplay:=Cells(i, 1).Value
        For i = 0 To FrmNeuerVorgang.LstProjekt.ListCount - 1
            If FrmNeuerVorgang.LstProjekt.Selected(i) Then
                Debug.Print FrmNeuerVorgang.LstProjekt.List(i, 0)
Viele Grüße
talolo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 09:14   #2
Uwi63
MOF User
MOF User
Standard

Moin,
teste mal:
Code:

    ActiveSheet.Hyperlinks.Add _
        Anchor:=Cells(i, 1), _
        Address:="Y:\"

__________________

Gruß
Uwe


Feedback? Aber selbstverständlich
Uwi63 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 09:26   #3
talolo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

danke für deine schnelle Rückmeldung!

es klappt leider nicht, es kommt Laufzeitfehler 1004'. muss ich den Cells Code irgendwie ändern?

Code:

Cells(Zeile, SpaltenNr("Auto#")).Value = FrmNeuerVorgang.TxtSKNummer.Text
talolo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 09:39   #4
Uwi63
MOF User
MOF User
Standard

Hallo,

Zitat:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Y:"
Cells(i, 1).Value , TextToDisplay:=Cells(i, 1).Value

ich hatte angenommen, dass dein verwendeter Ausdruck Cells(i, 1) hier passt, kenne aber nicht deinen ganzen Code.
Hat hier evtl deine Variable i gar keinen Wert?

__________________

Gruß
Uwe


Feedback? Aber selbstverständlich
Uwi63 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 11:03   #5
talolo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ich bin noch nicht wirklich gut in vba...

mein code sieht bisher wie folgt aus:

Code:

Private Sub CmdVorgangAnlegen_Click()
    Const ErsteZeile As Integer = 5
    Const MaxZeile As Integer = 10000
    
    Dim Adress,Zeile, i  As Integer    
        
    Zeile = NeueZeile(ErsteZeile, MaxZeile)
    
    If FrmNeuerVorgang.LstArt.Text = "" Then
        GoTo Err_ArtWählen
    End If
        
    With Tabelle1
        Rows(Zeile).Insert
        Rows(Zeile).EntireRow.AutoFit
           
        Cells(Zeile, SpaltenNr("Auto_#")).Value = FrmNeuerVorgang.TxtSKNummer.Text
           ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="Y:"
           Cells(i, 1).Value , TextToDisplay:=Cells(i, 1).Value
        For i = 0 To FrmNeuerVorgang.LstProjekt.ListCount - 1
            Next i
klingt vermutlich echt dumm, aber was müsste ich für denn ändern?
talolo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 12:17   #6
Uwi63
MOF User
MOF User
Standard

Hallo,
ich verstehe deine Code nicht:

Zitat:

Durch einen Buttonclick werden Daten aus einem anderen Sheet zusammengesucht und in eine neue Zeile im aktiven Blatt gesetzt.

Klappt das denn überhaupt schon?
Lass den Code mal im Einzelschritt ablaufen:
Cursor in den Code setzen und mit F8 starten und mit weiteren F8 Satz für Satz ablaufen, dabei kannst du beobachten was auf deinem Sheet passiert und gleichzeitig deine Variablen im Code überprüfen indem du die Maus darauf führst (ohne zu klicken) und abliest welchen Wert sie haben.
Deine Variablendeklaration macht vermutlich auch nicht, was sie soll:

Zitat:

Dim Adress,Zeile, i As Integer

So deklarierst du die ersten beiden als Variant und nur die letzte als Integer!

Zitat:

Zeile = NeueZeile(ErsteZeile, MaxZeile)

Was willst Du damit erreichen? Ist meines Erachtens Unsinn.
Weiter unten im Code fügst du eine Zeile ein, also benötigst du für diese Variable eine vom Typ Long!

Irgendwie passt hier garnix!
Ich schlage vor du erstellt eine kleine Musterdatei und lädst sie hoch, alles andere macht wenig Sinn.

__________________

Gruß
Uwe


Feedback? Aber selbstverständlich
Uwi63 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 13:13   #7
talolo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Der Code funktionert.. Er gibt mir ja die Werte aus. Nur die Hyperlink integration klappt nicht.

Code:

Zeile = NeueZeile(ErsteZeile, MaxZeile)
damit wird doch eine neue zeile benutzt, für jede betätigung des buttons.
talolo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 13:41   #8
Uwi63
MOF User
MOF User
Standard

wie gesagt, ich verstehe deine Code nicht!

Nimm den Code aus meinem Beitrag #2 und sorge dafür dass die dort eingesetzte Variable i einen Wert größer Null hat, der steht an der Stelle für die Zeile, dann klappt es mit dem Link.

__________________

Gruß
Uwe


Feedback? Aber selbstverständlich
Uwi63 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.01.2018, 08:50   #9
talolo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

es hat jetzt nach ein paar Versuchen geklappt danke dir für deine Hilfe Uwi63!
talolo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:29 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.