Fehler im Code, aber wo?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BilderEinfügen() Dim i As Integer On Error Resume Next For i = 2 To 3 Sheets("PIS").Pictures.Insert(Sheets("PIS").Range("M" & i).Value).Select With Selection .Top = Sheets("PIS").Range(Sheets("PIS").Range("N" & i).Value).Top .Left = Sheets("PIS").Range(Sheets("PIS").Range("N" & i).Value).Left .Width = Sheets("PIS").Range(Sheets("PIS").Range("N" & i).Value & ":" & Sheets("PIS").Range("O" & i).Value).Width .Height = .Width * 3 / 4 .Name = "Bild" & i End With Next i On Error GoTo 0 End Sub

Hallo Boris
Ich probiere mal die verschiedenen Fragen zu beantworten.
1)
Im Resultat kein Unterschied. Als einfache Faustregel würde ich sagen, sollte die Variante gewählt werden, wo am wenigsten Buchstaben geschrieben werden müssen. In deinem Beispiel ist es die erste Variante. Wenn du aber viele verschiedene Vorgänge mit dem gleichen With-Block abhandeln kannst, dann würde ich diese wählen. Z.B.
With Worksheets("PIS")
.Range("A1") = "Lala"
.Range("A2").NumberFormat = "0"
.Columns(1).Visible = False
'usw.
End With
So macht der With-Block Sinn, aber "nur" mit einem Befehl (Range(..)="lala") nicht unbedingt.
Jeder hat seine eigenen Vorlieben und das soll auch so sein. Für Personen deren Job das Programmieren ist, ist jedoch Effizienz (möglichst kurze, übersichtliche Codes) entscheidend.
2)
Die Frage, ob Variablen Global oder nicht deklariert werden sollen, hängt von deren Verwendung ab. Persönlich verwende ich mit ganz wenigen Ausnahmen nie globale Variabeln, da Variablen bei Bedarf auch anderweitig von Prozedur zu Prozedur/Funktion übergeben werden können.
Meine Faustregel (gibt vermutlich auch andere Ansichten): Wenn immer möglich auf globale Variablen verzichten.
Betreffend Umbenennen: Global hätte den Vorteil, dass du den Blattnamen nur einmal bezeichnest. Anderseits müsstest du trotzdem den Code anpassen, wenn jemand den Namen verändert. Diesbezüglich gibt es m.W. 2 Möglichkeiten:
- Entweder bezeichnest du die Blätter mit dem Namen, dann musst du ggf. Code ändern.
- Oder du gibst den Index an z.B. Worksheets(1) = erstes Tabellenblatt in der Mappe.
3)
Ja ist möglich und m.E. sehr zu empfehlen


Sub t()
With Sheets("Property Overview").Pictures.Insert(Range("Q" & i).Value)
End With
End Sub

oder


Sub tt()
Dim obj As Object
Set obj = Sheets("Property Overview").Pictures.Insert(Range("Q" & i).Value)
With obj
End With
End Sub

N.b. achte auf eine konsequente Bezeichnung deiner Tabellenblätter. Nicht nur das Tabellenblatt mit dem Picture, sondern auch
Range("Q" & i).Value
Ohne nähere Bezeichnung wird das gerade aktive Arbeitsblatt angesprochen, wo der Wert evtl. Null ist. Darauf zielte mein erfolgloser Schuss ins Blaue.
Gruss
Chris

Sub BilderEinfügen() Set WS = Worksheets("Property Overview") Dim i As Integer Application.ScreenUpdating = False On Error Resume Next For i = 2 To 5 Set objBilder = WS.Pictures.Insert(WS.Range("Q" & i).Value) With objBilder .Top = WS.Range(WS.Range("R" & i).Value).Top .Left = WS.Range(WS.Range("R" & i).Value).Left .Width = WS.Range(WS.Range("R" & i).Value & ":" & WS.Range("S" & i).Value).Width .Height = .Width * 3 / 4 .Name = "Bild" & i End With Next i On Error GoTo 0 Application.ScreenUpdating = True End Sub

Sub BilderLöschen() Set WS = Worksheets("Property Overview") Dim i As Integer Application.ScreenUpdating = False On Error Resume Next For i = 2 To 5 WS.Pictures("Bild" & i).Delete Next i On Error GoTo 0 Application.ScreenUpdating = True End Sub

Tut mir ja leid, aber es tauchen plötzlich aus dem Nichts folgende Fragen auf:
In Sheet(Property Overview) steht nun das:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet
Set WS = Worksheets("Property Overview")
If Target.Address <> "$B$1" Then Exit Sub
Call BilderLöschen(WS)
Call BilderEinfügen(WS)
End Sub

Und in Module1:
Dim objBild As Object
Sub BilderEinfügen(WS As Worksheet)
Dim i As Integer
Application.ScreenUpdating = False
On Error Resume Next
For i = 2 To 5
Set objBild = WS.Pictures.Insert(WS.Range("Q" & i).Value)
With objBild
.Top = WS.Range(WS.Range("R" & i).Value).Top
.Left = WS.Range(WS.Range("R" & i).Value).Left
.Width = WS.Range(WS.Range("R" & i).Value & ":" & WS.Range("S" & i).Value).Width
.Height = .Width * 3 / 4
End With
Next i
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Sub BilderLöschen(WS As Worksheet)
Dim i As Integer
Application.ScreenUpdating = False
For Each objBild In WS.Pictures
objBild.Delete
Next objBild
Application.ScreenUpdating = True
End Sub
1) Zum einen habe ich in BilderLöschen die For-Schleife ersetzt, funktioniert einwandfrei, deshalb ist objBild auch global gesetzt, so dass beide Subs darauf zugreifen können.
2) Bezeichne ich allerdings die Subs in Module1 als Private, können diese aus Sheet(Property Overview) nicht mehr aufgerufen werden...?
3) Wenn ich Module1 umbenenne, funktioniert gar nichts mehr? Woran liegt das, würde gerne die Module nach ihrer Funktion benennen, so z.B. Druckmodul, Bildmodul, Kopiermodul.
4) In ThisWorkbook steht nun:


Private Sub Workbook_Open()
Dim WS As Worksheet
Set WS = Worksheets("Property Overview")
Call BilderEinfügen(WS)
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WS As Worksheet
Set WS = Worksheets("Property Overview")
Call BilderLöschen(WS)
End Sub

d.h. die Übergabe von WS geschieht nun innerhalb von 3 Ereignissen (worksheet_change, workbook_open und workbook_beforeclose). Ist das so sinnvoll?
Falls Dich mein Fragen-Bombardement nervt, würde ich das sogar gut verstehen:) Bitte in diesem Fall um eine klare Ansage:)
Grüße,
Boris

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread