Thema Datum  Von Nutzer Rating
Antwort
21.11.2014 15:21:47 Nico
NotSolved
Blau Bilder mit wenn formel
23.11.2014 11:36:33 Gast46403
NotSolved

Ansicht des Beitrags:
Von:
Gast46403
Datum:
23.11.2014 11:36:33
Views:
705
Rating: Antwort:
  Ja
Thema:
Bilder mit wenn formel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Option Explicit
 
Sub Fehler_1_bei_grafik_einfügen()
  
'Anzeige Bild 1, wenn in Zelle A1 der Wert 1 steht
 
'If ActiveSheet.Range("LED-Rechner!C5").Value = 1 Then '( zeigt mir hier den Fehler)
If Sheets("LED-Rechner").Range("C5").Value = 1 Then
   Sheets("Berechnung").Activate
   Range("B4").Select
    
   'ActiveSheet.Pictures.Insert("F:\Diodenrechner\LED01.gif").Select
 
Else
 
   'Anzeige Bild 2, wenn in der Zelle A1 ein anderer Wert als 1 steht
   'Range("Berechnung!B4").Select  '( zeigt mir hier AUCH den Fehler, WENN )
   Sheets("Berechnung").Activate
   Range("B4").Select
    
   'ActiveSheet.Pictures.Insert("C:\Diodenrechner\LED02.gif").Select
 
End If
  
End Sub
 
 
Sub Fehler_2_bei_grafik_einfügen()
Dim i As Long
 
'Anzeige Bild 1, wenn in Zelle A1 der Wert 1 steht
 
If Sheets("LED-Rechner").Range("C5").Value = 1 Then
   Sheets("Berechnung").Activate
   Range("B4").Select
    
   'Test
   ActiveSheet.Pictures.Insert ("F:\Diodenrechner\LED01.gif")
Else
 
   'Anzeige Bild 2, wenn in der Zelle A1 ein anderer Wert als 1 steht
    
   Sheets("Berechnung").Activate
   Range("B4").Select
    
   ActiveSheet.Pictures.Insert ("C:\Diodenrechner\LED02.gif")
 
End If
  
i = ActiveSheet.Shapes.Count
Call MsgBox(CStr(i) & " Bilder in der aktiven Tabelle: ", vbInformation, "Bilder vorhanden")
 
' mit jedem Schritt werden die Bilder mehr!
 
End Sub
 
Sub Wenn_schon_mit_AddPicture()
 
Const PFAD1 As String = "F:\Diodenrechner\LED01.gif"
Const PFAD2 As String = "C:\Diodenrechner\LED02.gif"
Dim oShp As Excel.Shape
Dim strPath As String
 
strPath = PFAD1
If Sheets("LED-Rechner").Range("C5").Value <> 1 Then _
   strPath = PFAD2
 
With Sheets("Berechnung")
   For Each oShp In .Shapes
      If oShp.TopLeftCell.Address = "$B$4" Then
         oShp.Delete
         Exit For
      End If
   Next oShp
 
   .Shapes.AddPicture strPath, False, True, .Range("$B$4").Left, _
      .Range("$B$4").Top, 80, 80
End With
 
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.11.2014 15:21:47 Nico
NotSolved
Blau Bilder mit wenn formel
23.11.2014 11:36:33 Gast46403
NotSolved