#WERT

Antonio · 2018-08-21T07:16:57+00:00

Hallo Gemeinde, nachdem alles geklappt hat mit der 90° Drehung und alles in einer Zeile kopieren, (der Code war mit eine Hilfstabelle) versuche ich ohne Hilfsblatt das selbe Ergebniss zu erreichen, ohne Erfolg. In der beiliegende Mappe, den Code einmal ohne Hilfstabelle und auskommentiert mit Hilfstabelle. https://www.herber.de/bbs/user/123454.xlsm Mit Hilfstabelle werden die Daten richtig gedreht und kopiert und sind lesbar. Ohne Hilfstabelle werden die Daten richtig gedreht und kopiert sind aber als #WERT. Vielleicht kann mir jemand helfen zu verstehen warum so ist. Ich würde gerne ohne Hilfstabelle arbeiten. Vielen Dank in Voraus Antonio

Hi Chris,
PERFEKT wie immer.
Danke
Ein Punkt noch aus der Vergangenheit:

Private Sub ListBox1_Click()
Dim I As Integer, intWert As Variant, intCounter As Integer
If ListBox1.List(ListBox1.ListIndex, 0) = "" Then
Call PunkteEinblenden(False)
Call LabelEinblenden(False)
Exit Sub
Else
Call PunkteEinblenden(True)
Call LabelEinblenden(True)
End If
For I = 6 To 1 Step -1
Controls("Punkt" & I).Top = Image1.Top + (((Image1.Height - (Punkt1.Height * 6)) / 12) _
* (((I - 1) * 2) + 1)) + ((I - 1) * Punkt1.Height)
Controls("Label" & I).Top = Image1.Top + (((Image1.Height - (Label1.Height * 6)) / 12) _
* (((I - 1) * 2) + 1)) + ((I - 1) * Label1.Height)
If ListBox1.List(ListBox1.ListIndex, intCounter) = "x" Then
intWert = 1
Else
intWert = ListBox1.List(ListBox1.ListIndex, intCounter) + 1
End If
Controls("Punkt" & I).Left = Image1.Left + (((Image1.Width - (Punkt1.Width * 15)) / 32)) *  _
_
(((intWert - 1) * 2) - 1.5) + ((intWert - 1) * Punkt1.Width)
Controls("Label" & I).Left = Image1.Left + (((Image1.Width - (Label1.Width * 15)) / 32) *  _
_
(((intWert - 1) * 2) - 0.65)) + ((intWert - 1) * Label1.Width)
intCounter = intCounter + 1
Next I
With ListBox1
If .ListIndex > -1 Then
Label6.Caption = .List(.ListIndex, 0) 'Column 1
Label5.Caption = .List(.ListIndex, 1) 'Column 2
Label4.Caption = .List(.ListIndex, 2) 'Column 3
Label3.Caption = .List(.ListIndex, 3) 'Column 4
Label2.Caption = .List(.ListIndex, 4) 'Column 5
Label1.Caption = .List(.ListIndex, 5) 'Column 6
End If
End With
End Sub

Mit diesem Code von dir kann ich runde image mit Beschriftung auf der Form zeigen.
Ist es möglich auch mehr als 6 Punkte zu zeigen?
Durch Versuche im Code ist es mir leider nicht gelungen.
Kannst du mir hier nocheimal ein Tipp geben?
Danke in Voraus
Antonio

Hi
Ja klar ist das möglich. Nur müsste ich mich da auch wieder eindenken.
Ist mit 6


For I = 6 To 1 Step -1
Controls("Punkt" & I).Top = Image1.Top + (((Image1.Height - (Punkt1.Height * 6)) / 12) _
* (((I - 1) * 2) + 1)) + ((I - 1) * Punkt1.Height)
Controls("Label" & I).Top = Image1.Top + (((Image1.Height - (Label1.Height * 6)) / 12) _
* (((I - 1) * 2) + 1)) + ((I - 1) * Label1.Height)

Neu mit 7

For I = 7 To 1 Step -1
Controls("Punkt" & I).Top = Image1.Top + (((Image1.Height - (Punkt1.Height * 7)) / 14) _
* (((I - 1) * 2) + 1)) + ((I - 1) * Punkt1.Height)
Controls("Label" & I).Top = Image1.Top + (((Image1.Height - (Label1.Height * 7)) / 14) _
* (((I - 1) * 2) + 1)) + ((I - 1) * Label1.Height)

cu
Chris

Forumthread: #WERT

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

#WERT

Forumthread: #WERT

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread