vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: hyperlink in excel automatisch generieren 
Autor: utopia 23
Datum: 20.04.15 15:04
hallo powerzone3000,

dein Code funktioniert genau so wie ich es wollte.

mir ist jetzt nur ein was aufgefallen, wenn ich in der Zelle was lösche, will er trotzdem was verlinken und buggt dann...

Da ich null Plan habe von VBA, kannst du mir den Code erklären?
z.B. was ist Target, kenne ich nur von HTML.

bin dir sehr dankbar dafür.

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

hyperlink in excel automatisch generieren 
Autor: utopia 23
Datum: 20.04.15 10:48
Mahlzeit Euch allen...

ich möchte in Excel 2010 spalte "K" eine Zahl eingeben. Diese soll dann zu einem Hyperlink umgewandelt werden.

z.B.
Ich Trage in Zelle K574 die Zahl "151515" ein dann soll in der Zelle ein Hyperlink zur URL http://lehrgang/lehrgang_anzeigen.php?auswahl=151515 generiert werden.

Mein Codeansatz: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Letzte As Long
Dim i As Integer
    Letzte = Sheets("Tabelle1").Cells(Rows.Count, 11).End(xlUp).Row
    For i = 3 To Letzte
        'Zelle in Spalte K wird selektiert
        Cells(i, 11).Select
    'Hyperlink wird eingefügt
    Sheets("Tabelle1").hyperlinks.Add Anchor:=Selection, _
      Address:="http://lehrgang/lehrgang_anzeigen.php?auswahl=" & Cells(i, 11)
 
    Next
End Sub
vielleicht muss es ja auch keine For schleife sein.

Derzeitige Herausforderung:
Der Code rattert die ganze Tabelle unendlich durch.

ich danke schon mal im voraus

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: hyperlink in excel automatisch generieren 
Autor: powerzone3000
Datum: 20.04.15 13:54
Hallo,
versuch mal folgendes:

So wird immer nur die geänderte Zelle bearbeitet, und nicht jedes mal die komplette Spalte neu berechnet 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Cells.Count = 1 And _
    Target.Row >= 3 And Target.Column = 11 Then
 
        Target.Hyperlinks.Add Target, _
          "http://lehrgang/lehrgang_anzeigen.php?auswahl=" & Target.Cells(1, _
          1).Value
 
    End If
 
 
End Sub
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: hyperlink in excel automatisch generieren 
Autor: powerzone3000
Datum: 20.04.15 17:57
Hallo,
um das Problem zu beheben kannst du die If-Bedingung erweitern, und nur fortsetzen wenn die Zelle nicht leer ist. 
    If Target.Cells.Count = 1 And _
    Target.Row >= 3 And Target.Column = 11 And _
    Target.Cells(1, 1).Value <> "" Then
Zum Target-Objekt: Das ist ein Parameter des Worksheet.Change-Ereignis (siehe auch hier) das den geänderten Bereich darstellt.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: hyperlink in excel automatisch generieren 
Autor: utopia 23
Datum: 21.04.15 09:37
Perfekt...

ich danke dir für die schnelle Hilfe.

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel