Makroverbesserung...

Forumthread: Makroverbesserung...
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makroverbesserung...

30.05.2006 12:15:06

Sebastian

Wie kann man den folgenden Code ergänzen, dass er erst ab Zeile 9 reagiert? und alles die darüber stehen ignoriert...


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Cells.Count = 1 Then GoTo EineZelle
For Each Target In Selection
EineZelle:
On Error GoTo Fehler
If Target.Column = 1 Then
If Target.Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, 31), Address:= _
Modul1.Pfad & "\Bilder\Bild " & Target.Value & ".jpg", TextToDisplay:= _
"Bilder\Bild " & Target.Value & ".jpg"
Else
Cells(Target.Row, 31).ClearContents
End If
End If
Next Target
Fehler:
Application.EnableEvents = True
End Sub

Danke

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makroverbesserung...

30.05.2006 12:22:24

Bertram
Danke

30.05.2006 12:37:22

Sebastian

AW: Makroverbesserung...

30.05.2006 12:22:24

Bertram

Hallo Sebastian,
so:


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Cells.Count = 1 Then GoTo EineZelle
For Each Target In Selection
EineZelle:
On Error GoTo Fehler
If Target.Column = 1 And Target.Row > 8 Then
If Target.Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, 31), Address:= _
ActiveWorkbook.Path & "\" & Target.Value & ".jpg", TextToDisplay:= _
ActiveWorkbook.Path & "\" & Target.Value & ".jpg"
Else
Cells(Target.Row, 31).ClearContents
End If
End If
Next Target
Fehler:
Application.EnableEvents = True
End Sub

Gruß
Bertram

Danke

30.05.2006 12:37:22

Sebastian

Herzlichsten Dank :-)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!