Clever-Excel-Forum › Office-Anwendungen › Excel v
Daten aus Listbox in Textbox,dort Anzeigen und ändern, anschließend zurückschreiben i

Thema geschlossen 
Baumstrukturmodus
Daten aus Listbox in Textbox,dort Anzeigen und ändern, anschließend zurückschreiben i
Merlin-1962 Offline
pausiert
Registriert seit: 04.03.2019
Version(en): 2016
#1
04.03.2019, 17:03
Hallo Forum Gemeinde!

bitte nicht stöhnen, sicher wurde das Thema bereits mehrfach behandelt aber ich komme nicht weiter und brauche Hilfe.
Vorab: Ich bin absoluter Anfänger!, bin Blind und arbeite mit Sprachein.- und Ausgabe.
Seit Jahren muss ich mich mit dem Problem der Abrechnungen mit div. Kostenträgern herumschlagen, da hier in der dafür anzuwendenden Excel Tabelle
meine Schreibassistenzen nicht immer die richtigen Felder ausfüllen. Darum habe ich mir gedacht das ganze erfassen, ändern oder neu anlegen über eine Userform zu machen.

Also sitze ich seit 6 Monaten, - man will es halt selbst schaffen - und quäle mich mit Code Schnipseln voran.

Das hat auch bis dato funktioniert. Bestimmt nicht so perfekt - aber bis zu diesem Punkt funzt es.

Mein Vorhaben: Daten aus einer Tabelle in eine Listbox einlesen.- Alle 70 Spalten aber nur eine wird Angezeigt sowie Leerzeilen weggelassen -"A". ---->> Funktioniert.
Bei Markierung eines Satzes in der Listbox, werden die Daten (restlichen 60 Spalten) in Textboxen angezeigt. - TextBoxen nicht aktiv----->> Funktioniert.
Bei der Auswahl in der Listbox werden 2 Commandbutton aktiv - "Stammdaten ändern" und "Client bearbeiten" ---->>> funktioniert.
Es werden nach betätigen einer dieser Commandbutton die jeweilig betroffenen TextBoxen aktiv ----->>> funktioniert.

Mein Problem: Nach ändern einer oder mehrerer Textboxen soll die Änderung zurückgeschrieben werden in die Tabelle in das richtige Feld, der ausgewählten Zeile der Listbox.
Ich habe das zurückschreiben bisher nur hinbekommen, wenn ich das Feld und die Spalte direkt angesprochen habe. Also nicht mit dem ListBox.Index.

Wer wäre bereit mir hier eine Unterstützung zu geben.

So lese ich die Listbox ein und fülle Sie:  ---->>> funktioniert


Code:
Private Sub UserForm_Initialize()           'in UserForm1 > ShowModal = False  setzen
   Me.EnableEvents = True
   CommandButton1.Enabled = False
   CommandButton2.Enabled = False
   CommandButton3.Enabled = True
   CommandButton4.Enabled = False
   CommandButton5.Enabled = False
   Dim i As Integer
   Dim x As Integer
   Dim sh As Worksheet
   Set sh = Sheets("Tabelle3")

   For i = 7 To 205
   If sh.Cells(i, 1) <> "" Then
       ListBox1.ColumnCount = 1
       ListBox1.BoundColumn = 0
       ListBox1.RowSource = "Tabelle3!A7:BW" & i '
       'x = x + 1
   End If
   Next i
End Sub

Private Sub ListBox1_Click()
   If Me.EnableEvents = False Then
          Exit Sub
   End If
   CommandButton1.Enabled = True
   CommandButton2.Enabled = True
   CommandButton3.Enabled = False
   CommandButton4.Enabled = False
   TextBox102.Value = ListBox1.List(ListBox1.ListIndex, 0)
   TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
   TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 2)
   TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 5)
   TextBox4.Value = ListBox1.List(ListBox1.ListIndex, 6)
   TextBox5.Value = ListBox1.List(ListBox1.ListIndex, 7)
   TextBox6.Value = ListBox1.List(ListBox1.ListIndex, 8)
   TextBox7.Value = ListBox1.List(ListBox1.ListIndex, 3)
   TextBox8.Value = ListBox1.List(ListBox1.ListIndex, 4)
   TextBox9.Value = ListBox1.List(ListBox1.ListIndex, 9)
   TextBox10.Value = ListBox1.List(ListBox1.ListIndex, 10)
   TextBox11.Value = ListBox1.List(ListBox1.ListIndex, 11)
   TextBox13.Value = ListBox1.List(ListBox1.ListIndex, 12)
   TextBox14.Value = ListBox1.List(ListBox1.ListIndex, 13)
   TextBox15.Value = ListBox1.List(ListBox1.ListIndex, 12)
   TextBox16.Value = ListBox1.List(ListBox1.ListIndex, 14)
   TextBox21.Value = ListBox1.List(ListBox1.ListIndex, 15)
   TextBox24.Value = ListBox1.List(ListBox1.ListIndex, 16)
   TextBox27.Value = ListBox1.List(ListBox1.ListIndex, 17)
   TextBox30.Value = ListBox1.List(ListBox1.ListIndex, 18)
   TextBox61.Value = ListBox1.List(ListBox1.ListIndex, 19)
   TextBox68.Value = ListBox1.List(ListBox1.ListIndex, 20)
   TextBox75.Value = ListBox1.List(ListBox1.ListIndex, 21)
   TextBox82.Value = ListBox1.List(ListBox1.ListIndex, 22)
   TextBox89.Value = ListBox1.List(ListBox1.ListIndex, 23)
   TextBox96.Value = ListBox1.List(ListBox1.ListIndex, 24)
   TextBox17.Value = ListBox1.List(ListBox1.ListIndex, 49)
   TextBox18.Value = ListBox1.List(ListBox1.ListIndex, 50)
   TextBox19.Value = ListBox1.List(ListBox1.ListIndex, 51)
   TextBox20.Value = ListBox1.List(ListBox1.ListIndex, 52)
   TextBox22.Value = ListBox1.List(ListBox1.ListIndex, 53)
   TextBox23.Value = ListBox1.List(ListBox1.ListIndex, 54)
   TextBox25.Value = ListBox1.List(ListBox1.ListIndex, 55)
   TextBox26.Value = ListBox1.List(ListBox1.ListIndex, 56)
   TextBox28.Value = ListBox1.List(ListBox1.ListIndex, 57)
   TextBox29.Value = ListBox1.List(ListBox1.ListIndex, 58)
   TextBox31.Value = ListBox1.List(ListBox1.ListIndex, 59)
   TextBox32.Value = ListBox1.List(ListBox1.ListIndex, 60)
   TextBox62.Value = ListBox1.List(ListBox1.ListIndex, 61)
   TextBox63.Value = ListBox1.List(ListBox1.ListIndex, 62)
   TextBox69.Value = ListBox1.List(ListBox1.ListIndex, 63)
   TextBox70.Value = ListBox1.List(ListBox1.ListIndex, 64)
   TextBox76.Value = ListBox1.List(ListBox1.ListIndex, 65)
   TextBox77.Value = ListBox1.List(ListBox1.ListIndex, 66)
   TextBox83.Value = ListBox1.List(ListBox1.ListIndex, 67)
   TextBox84.Value = ListBox1.List(ListBox1.ListIndex, 68)
   TextBox90.Value = ListBox1.List(ListBox1.ListIndex, 69)
   TextBox91.Value = ListBox1.List(ListBox1.ListIndex, 70)
   TextBox97.Value = ListBox1.List(ListBox1.ListIndex, 71)
   TextBox98.Value = ListBox1.List(ListBox1.ListIndex, 72)
   TextBox37.Value = ListBox1.List(ListBox1.ListIndex, 25)
   TextBox39.Value = ListBox1.List(ListBox1.ListIndex, 26)
   TextBox41.Value = ListBox1.List(ListBox1.ListIndex, 27)
   TextBox43.Value = ListBox1.List(ListBox1.ListIndex, 28)
   TextBox45.Value = ListBox1.List(ListBox1.ListIndex, 29)
   TextBox47.Value = ListBox1.List(ListBox1.ListIndex, 30)
   TextBox49.Value = ListBox1.List(ListBox1.ListIndex, 31)
   TextBox51.Value = ListBox1.List(ListBox1.ListIndex, 32)
   TextBox53.Value = ListBox1.List(ListBox1.ListIndex, 33)
   TextBox55.Value = ListBox1.List(ListBox1.ListIndex, 34)
   TextBox57.Value = ListBox1.List(ListBox1.ListIndex, 35)
   TextBox59.Value = ListBox1.List(ListBox1.ListIndex, 36)
   TextBox64.Value = ListBox1.List(ListBox1.ListIndex, 37)
   TextBox66.Value = ListBox1.List(ListBox1.ListIndex, 38)
   TextBox71.Value = ListBox1.List(ListBox1.ListIndex, 39)
   TextBox73.Value = ListBox1.List(ListBox1.ListIndex, 40)
   TextBox78.Value = ListBox1.List(ListBox1.ListIndex, 41)
   TextBox80.Value = ListBox1.List(ListBox1.ListIndex, 42)
   TextBox85.Value = ListBox1.List(ListBox1.ListIndex, 43)
   TextBox87.Value = ListBox1.List(ListBox1.ListIndex, 44)
   TextBox92.Value = ListBox1.List(ListBox1.ListIndex, 45)
   TextBox94.Value = ListBox1.List(ListBox1.ListIndex, 46)
   TextBox99.Value = ListBox1.List(ListBox1.ListIndex, 47)
   TextBox101.Value = ListBox1.List(ListBox1.ListIndex, 48)
   TextBox38 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26)
   TextBox42 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28)
   TextBox46 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30)
   TextBox50 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32)
   TextBox54 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34)
   TextBox58 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36)
   TextBox65 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36) - ListBox1.List(ListBox1.ListIndex, 37) - ListBox1.List(ListBox1.ListIndex, 38)
   TextBox72 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36) - ListBox1.List(ListBox1.ListIndex, 37) - ListBox1.List(ListBox1.ListIndex, 38) - ListBox1.List(ListBox1.ListIndex, 39) - ListBox1.List(ListBox1.ListIndex, 40)
   TextBox79 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36) - ListBox1.List(ListBox1.ListIndex, 37) - ListBox1.List(ListBox1.ListIndex, 38) - ListBox1.List(ListBox1.ListIndex, 39) - ListBox1.List(ListBox1.ListIndex, 40) - ListBox1.List(ListBox1.ListIndex, 41) - ListBox1.List(ListBox1.ListIndex, 42)
   TextBox86 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36) - ListBox1.List(ListBox1.ListIndex, 37) - ListBox1.List(ListBox1.ListIndex, 38) - ListBox1.List(ListBox1.ListIndex, 39) - ListBox1.List(ListBox1.ListIndex, 40) - ListBox1.List(ListBox1.ListIndex, 41) - ListBox1.List(ListBox1.ListIndex, 42) - ListBox1.List(ListBox1.ListIndex, 43) - ListBox1.List(ListBox1.ListIndex, 44)
   TextBox93 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36) - ListBox1.List(ListBox1.ListIndex, 37) - ListBox1.List(ListBox1.ListIndex, 38) - ListBox1.List(ListBox1.ListIndex, 39) - ListBox1.List(ListBox1.ListIndex, 40) - ListBox1.List(ListBox1.ListIndex, 41) - ListBox1.List(ListBox1.ListIndex, 42) - ListBox1.List(ListBox1.ListIndex, 43) - ListBox1.List(ListBox1.ListIndex, 44) - ListBox1.List(ListBox1.ListIndex, 45) - ListBox1.List(ListBox1.ListIndex, 46)
   TextBox100 = ListBox1.List(ListBox1.ListIndex, 3) - ListBox1.List(ListBox1.ListIndex, 25) - ListBox1.List(ListBox1.ListIndex, 26) - ListBox1.List(ListBox1.ListIndex, 27) - ListBox1.List(ListBox1.ListIndex, 28) - ListBox1.List(ListBox1.ListIndex, 29) - ListBox1.List(ListBox1.ListIndex, 30) - ListBox1.List(ListBox1.ListIndex, 31) - ListBox1.List(ListBox1.ListIndex, 32) - ListBox1.List(ListBox1.ListIndex, 33) - ListBox1.List(ListBox1.ListIndex, 34) - ListBox1.List(ListBox1.ListIndex, 35) - ListBox1.List(ListBox1.ListIndex, 36) - ListBox1.List(ListBox1.ListIndex, 37) - ListBox1.List(ListBox1.ListIndex, 38) - ListBox1.List(ListBox1.ListIndex, 39) - ListBox1.List(ListBox1.ListIndex, 40) - ListBox1.List(ListBox1.ListIndex, 41) - ListBox1.List(ListBox1.ListIndex, 42) - ListBox1.List(ListBox1.ListIndex, 43) - ListBox1.List(ListBox1.ListIndex, 44) - ListBox1.List(ListBox1.ListIndex, 45) - ListBox1.List(ListBox1.ListIndex, 46) - ListBox1.List(ListBox1.ListIndex, 47) - ListBox1.List(ListBox1.ListIndex, 48)
   
   TextBox102.Enabled = False
   TextBox1.Enabled = False
   TextBox2.Enabled = False
   TextBox3.Enabled = False
   TextBox4.Enabled = False
   TextBox5.Enabled = False
   TextBox6.Enabled = False
   TextBox7.Enabled = False
   TextBox8.Enabled = False
   TextBox9.Enabled = False
   TextBox10.Enabled = False
   TextBox11.Enabled = False
   TextBox13.Enabled = False
   TextBox14.Enabled = False
   TextBox15.Enabled = False
   TextBox16.Enabled = False
   TextBox21.Enabled = False
   TextBox24.Enabled = False
   TextBox27.Enabled = False
   TextBox30.Enabled = False
   TextBox61.Enabled = False
   TextBox68.Enabled = False
   TextBox75.Enabled = False
   TextBox82.Enabled = False
   TextBox89.Enabled = False
   TextBox96.Enabled = False
   TextBox17.Enabled = False
   TextBox18.Enabled = False
   TextBox19.Enabled = False
   TextBox20.Enabled = False
   TextBox22.Enabled = False
   TextBox23.Enabled = False
   TextBox25.Enabled = False
   TextBox26.Enabled = False
   TextBox28.Enabled = False
   TextBox29.Enabled = False
   TextBox31.Enabled = False
   TextBox32.Enabled = False
   TextBox62.Enabled = False
   TextBox63.Enabled = False
   TextBox69.Enabled = False
   TextBox70.Enabled = False
   TextBox76.Enabled = False
   TextBox77.Enabled = False
   TextBox83.Enabled = False
   TextBox84.Enabled = False
   TextBox90.Enabled = False
   TextBox91.Enabled = False
   TextBox97.Enabled = False
   TextBox98.Enabled = False
   TextBox37.Enabled = False
   TextBox39.Enabled = False
   TextBox41.Enabled = False
   TextBox43.Enabled = False
   TextBox45.Enabled = False
   TextBox47.Enabled = False
   TextBox49.Enabled = False
   TextBox51.Enabled = False
   TextBox53.Enabled = False
   TextBox55.Enabled = False
   TextBox57.Enabled = False
   TextBox59.Enabled = False
   TextBox64.Enabled = False
   TextBox66.Enabled = False
   TextBox71.Enabled = False
   TextBox73.Enabled = False
   TextBox78.Enabled = False
   TextBox80.Enabled = False
   TextBox85.Enabled = False
   TextBox87.Enabled = False
   TextBox92.Enabled = False
   TextBox94.Enabled = False
   TextBox99.Enabled = False
   TextBox101.Enabled = False
   TextBox38.Enabled = False
   TextBox42.Enabled = False
   TextBox46.Enabled = False
   TextBox50.Enabled = False
   TextBox54.Enabled = False
   TextBox58.Enabled = False
   TextBox65.Enabled = False
   TextBox72.Enabled = False
   TextBox79.Enabled = False
   TextBox86.Enabled = False
   TextBox93.Enabled = False
   TextBox100.Enabled = False
   CommandButton1.Enabled = True
   CommandButton2.Enabled = True
End Sub
 
Nach der Auswahl in der Listbox werden die TextBoxen gefüllt: ---->>> funktioniert

Code:
Private Sub TextBox1_Change()

End Sub

Private Sub TextBox10_Change()

End Sub

Private Sub TextBox100_Change()
      If TextBox100 <> "0" Then
           TextBox100 = Format(TextBox100, "##,##0.0")
       Else
           TextBox100 = ""
       End If
End Sub

Private Sub TextBox101_Change()
   TextBox101 = Format(TextBox101, "##,##0.0")

End Sub

Private Sub TextBox102_Change()

End Sub

Private Sub TextBox102_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub
Private Sub TextBox11_Change()

End Sub

Private Sub TextBox17_Change()
   TextBox17 = Format(TextBox17, "DD.MM.YYYY")
End Sub

Private Sub TextBox18_Change()
   TextBox18 = Format(TextBox18, "DD.MM.YYYY")
End Sub

Private Sub TextBox19_Change()
   TextBox19 = Format(TextBox19, "DD.MM.YYYY")
End Sub

Private Sub TextBox2_Change()
   TextBox2 = Format(TextBox2, "DD.MM.YYYY")
End Sub

Private Sub TextBox20_Change()
   TextBox20 = Format(TextBox20, "DD.MM.YYYY")
End Sub

Private Sub TextBox22_Change()
   TextBox22 = Format(TextBox22, "DD.MM.YYYY")
End Sub

Private Sub TextBox23_Change()
   TextBox23 = Format(TextBox23, "DD.MM.YYYY")
End Sub

Private Sub TextBox25_Change()
   TextBox25 = Format(TextBox25, "DD.MM.YYYY")
End Sub

Private Sub TextBox26_Change()
   TextBox26 = Format(TextBox26, "DD.MM.YYYY")
End Sub

Private Sub TextBox28_Change()
   TextBox28 = Format(TextBox28, "DD.MM.YYYY")
End Sub

Private Sub TextBox29_Change()
   TextBox29 = Format(TextBox29, "DD.MM.YYYY")
End Sub

Private Sub TextBox3_Change()

End Sub
Private Sub TextBox14_Change()
   TextBox14 = Format(TextBox14, "DD.MM.YYYY")
End Sub
Private Sub TextBox13_Change()
   TextBox13 = Format(TextBox13, "DD.MM.YYYY")
End Sub
Private Sub TextBox15_Change()
   TextBox15 = Format(TextBox15, "MMM.   YYYY")
End Sub
Private Sub TextBox16_Change()
   TextBox16 = Format(TextBox16, "MMM.   YYYY")
End Sub
Private Sub TextBox21_Change()
   TextBox21 = Format(TextBox21, "MMM.   YYYY")
End Sub
Private Sub TextBox24_Change()
   TextBox24 = Format(TextBox24, "MMM.   YYYY")
End Sub
Private Sub TextBox27_Change()
   TextBox27 = Format(TextBox27, "MMM.   YYYY")
End Sub
Private Sub TextBox30_Change()
   TextBox30 = Format(TextBox30, "MMM.   YYYY")
End Sub

Private Sub TextBox31_Change()
   TextBox31 = Format(TextBox31, "DD.MM.YYYY")
End Sub

Private Sub TextBox32_Change()
   TextBox32 = Format(TextBox32, "DD.MM.YYYY")
End Sub

Private Sub TextBox37_Change()
   TextBox37 = Format(TextBox37, "##,##0.0")
End Sub

Private Sub TextBox38_Change()
      If TextBox38 <> "0" Then
           TextBox38 = Format(TextBox38, "##,##0.0")
       Else
           TextBox38 = ""
       End If
End Sub

Private Sub TextBox39_Change()
   TextBox39 = Format(TextBox39, "##,##0.0")
End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox41_Change()
   TextBox41 = Format(TextBox41, "##,##0.0")
End Sub

Private Sub TextBox42_Change()
      If TextBox42 <> "0" Then
           TextBox42 = Format(TextBox42, "##,##0.0")
       Else
           TextBox42 = ""
       End If
End Sub

Private Sub TextBox43_Change()
   TextBox43 = Format(TextBox43, "##,##0.0")
End Sub

Private Sub TextBox45_Change()
   TextBox45 = Format(TextBox45, "##,##0.0")
End Sub

Private Sub TextBox46_Change()
       If TextBox46 <> "0" Then
           TextBox46 = Format(TextBox46, "##,##0.0")
       Else
           TextBox46 = ""
       End If
End Sub

Private Sub TextBox47_Change()
   TextBox47 = Format(TextBox47, "##,##0.0")
End Sub

Private Sub TextBox49_Change()
   TextBox49 = Format(TextBox49, "##,##0.0")
End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox50_Change()
      If TextBox50 <> "0" Then
           TextBox50 = Format(TextBox50, "##,##0.0")
       Else
           TextBox50 = ""
       End If
End Sub

Private Sub TextBox51_Change()
   TextBox51 = Format(TextBox51, "##,##0.0")
End Sub

Private Sub TextBox53_Change()
   TextBox53 = Format(TextBox53, "##,##0.0")
End Sub

Private Sub TextBox54_Change()
      If TextBox54 <> "0" Then
           TextBox54 = Format(TextBox54, "##,##0.0")
       Else
           TextBox54 = ""
       End If
End Sub

Private Sub TextBox55_Change()
   TextBox55 = Format(TextBox55, "##,##0.0")
End Sub

Private Sub TextBox57_Change()
   TextBox57 = Format(TextBox57, "##,##0.0")
End Sub

Private Sub TextBox58_Change()
       If TextBox58 <> "0" Then
           TextBox58 = Format(TextBox58, "##,##0.0")
       Else
           TextBox58 = ""
       End If
End Sub

Private Sub TextBox59_Change()
   TextBox59 = Format(TextBox59, "##,##0.0")
End Sub

Private Sub TextBox6_Change()
   TextBox59.Enabled = False
End Sub

Private Sub TextBox61_Change()
   TextBox61 = Format(TextBox61, "MMM.   YYYY")
End Sub

Private Sub TextBox62_Change()
   TextBox62 = Format(TextBox62, "DD.MM.YYYY")
End Sub

Private Sub TextBox63_Change()
   TextBox63 = Format(TextBox63, "DD.MM.YYYY")
End Sub

Private Sub TextBox64_Change()
   TextBox64 = Format(TextBox64, "##,##0.0")
End Sub

Private Sub TextBox65_Change()
      If TextBox65 <> "0" Then
           TextBox65 = Format(TextBox65, "##,##0.0")
       Else
           TextBox65 = ""
       End If
End Sub

Private Sub TextBox66_Change()
   TextBox66 = Format(TextBox66, "##,##0.0")
End Sub

Private Sub TextBox68_Change()
   TextBox68 = Format(TextBox68, "MMM.   YYYY")
End Sub

Private Sub TextBox69_Change()
   TextBox69 = Format(TextBox69, "DD.MM.YYYY")
End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub TextBox70_Change()
   TextBox70 = Format(TextBox70, "DD.MM.YYYY")
End Sub

Private Sub TextBox71_Change()
   TextBox71 = Format(TextBox71, "##,##0.0")
End Sub

Private Sub TextBox72_Change()
      If TextBox72 <> "0" Then
           TextBox72 = Format(TextBox72, "##,##0.0")
       Else
           TextBox72 = ""
       End If
End Sub

Private Sub TextBox73_Change()
   TextBox73 = Format(TextBox73, "##,##0.0")
End Sub

Private Sub TextBox75_Change()
   TextBox75 = Format(TextBox75, "MMM.   YYYY")
End Sub

Private Sub TextBox76_Change()
   TextBox76 = Format(TextBox76, "DD.MM.YYYY")
End Sub

Private Sub TextBox77_Change()
   TextBox77 = Format(TextBox77, "DD.MM.YYYY")
End Sub

Private Sub TextBox78_Change()
   TextBox78 = Format(TextBox78, "##,##0.0")
End Sub

Private Sub TextBox79_Change()
      If TextBox79 <> "0" Then
           TextBox79 = Format(TextBox79, "##,##0.0")
       Else
           TextBox79 = ""
       End If
End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub TextBox80_Change()
   TextBox80 = Format(TextBox80, "##,##0.0")
End Sub

Private Sub TextBox82_Change()
   TextBox82 = Format(TextBox82, "MMM.   YYYY")
End Sub

Private Sub TextBox83_Change()
   TextBox83 = Format(TextBox83, "DD.MM.YYYY")
End Sub

Private Sub TextBox84_Change()
   TextBox84 = Format(TextBox84, "DD.MM.YYYY")
End Sub

Private Sub TextBox85_Change()
   TextBox85 = Format(TextBox85, "##,##0.0")
End Sub

Private Sub TextBox86_Change()
      If TextBox86 <> "0" Then
           TextBox86 = Format(TextBox86, "##,##0.0")
       Else
           TextBox86 = ""
       End If
End Sub

Private Sub TextBox87_Change()
   TextBox87 = Format(TextBox87, "##,##0.0")
End Sub

Private Sub TextBox89_Change()
   TextBox89 = Format(TextBox89, "MMM.   YYYY")
End Sub

Private Sub TextBox9_Change()

End Sub

Private Sub TextBox90_Change()
   TextBox90 = Format(TextBox90, "DD.MM.YYYY")
End Sub

Private Sub TextBox91_Change()
   TextBox91 = Format(TextBox91, "DD.MM.YYYY")
End Sub

Private Sub TextBox92_Change()
   TextBox92 = Format(TextBox92, "##,##0.0")
End Sub

Private Sub TextBox93_Change()
      If TextBox93 <> "0" Then
           TextBox93 = Format(TextBox93, "##,##0.0")
       Else
           TextBox93 = ""
       End If
End Sub

Private Sub TextBox94_Change()
   TextBox94 = Format(TextBox94, "##,##0.0")
End Sub

Private Sub TextBox96_Change()
   TextBox96 = Format(TextBox96, "MMM.   YYYY")
End Sub

Private Sub TextBox97_Change()
   TextBox97 = Format(TextBox97, "DD.MM.YYYY")
End Sub

Private Sub TextBox98_Change()
   TextBox98 = Format(TextBox98, "DD.MM.YYYY")
End Sub

Private Sub TextBox99_Change()
   TextBox99 = Format(TextBox99, "##,##0.0")
End Sub

Der CommandButton1:   "Client bearbeiten" zum aktivieren der jeweiligen Textboxen ---->>> funktioniert

Code:
Private Sub CommandButton1_Click()
   ListBox1.Enabled = False
   CommandButton3.Enabled = False
   CommandButton2.Enabled = False
   CommandButton4.Enabled = True
   CommandButton5.Enabled = True
   TextBox13.Enabled = True
   TextBox14.Enabled = True
   TextBox17.Enabled = True
   TextBox18.Enabled = True
   TextBox19.Enabled = True
   TextBox20.Enabled = True
   TextBox22.Enabled = True
   TextBox23.Enabled = True
   TextBox25.Enabled = True
   TextBox26.Enabled = True
   TextBox28.Enabled = True
   TextBox29.Enabled = True
   TextBox31.Enabled = True
   TextBox32.Enabled = True
   TextBox62.Enabled = True
   TextBox63.Enabled = True
   TextBox69.Enabled = True
   TextBox70.Enabled = True
   TextBox76.Enabled = True
   TextBox77.Enabled = True
   TextBox83.Enabled = True
   TextBox84.Enabled = True
   TextBox90.Enabled = True
   TextBox91.Enabled = True
   TextBox97.Enabled = True
   TextBox98.Enabled = True
   TextBox37.Enabled = True
   TextBox39.Enabled = True
   TextBox41.Enabled = True
   TextBox43.Enabled = True
   TextBox45.Enabled = True
   TextBox47.Enabled = True
   TextBox49.Enabled = True
   TextBox51.Enabled = True
   TextBox53.Enabled = True
   TextBox55.Enabled = True
   TextBox57.Enabled = True
   TextBox59.Enabled = True
   TextBox64.Enabled = True
   TextBox66.Enabled = True
   TextBox71.Enabled = True
   TextBox73.Enabled = True
   TextBox78.Enabled = True
   TextBox80.Enabled = True
   TextBox85.Enabled = True
   TextBox87.Enabled = True
   TextBox92.Enabled = True
   TextBox94.Enabled = True
   TextBox99.Enabled = True
   TextBox101.Enabled = True
   TextBox1.Enabled = False
   TextBox14.Enabled = False
   TextBox2.Enabled = False
   TextBox3.Enabled = False
   TextBox4.Enabled = False
   TextBox5.Enabled = False
   TextBox6.Enabled = False
   TextBox7.Enabled = False
   TextBox8.Enabled = False
   TextBox9.Enabled = False
   TextBox10.Enabled = False
   TextBox11.Enabled = False
   TextBox12.Enabled = False
   TextBox13.Enabled = False
End Sub

Der CommandButton2:   "Client Stammdaten bearbeiten" zum aktivieren der jeweiligen Textboxen ---->>> funktioniert

Code:
Private Sub CommandButton2_Click()
   ListBox1.Enabled = False
   CommandButton3.Enabled = False
   CommandButton1.Enabled = False
   CommandButton4.Enabled = True
   CommandButton5.Enabled = True
   TextBox102.Enabled = True
   TextBox1.Enabled = True
   TextBox14.Enabled = True
   TextBox2.Enabled = True
   TextBox3.Enabled = True
   TextBox4.Enabled = True
   TextBox5.Enabled = True
   TextBox6.Enabled = True
   TextBox7.Enabled = True
   TextBox8.Enabled = True
   TextBox9.Enabled = True
   TextBox10.Enabled = True
   TextBox11.Enabled = True
   TextBox12.Enabled = True
   TextBox13.Enabled = True
   TextBox17.Enabled = False
   TextBox18.Enabled = False
   TextBox19.Enabled = False
   TextBox20.Enabled = False
   TextBox22.Enabled = False
   TextBox23.Enabled = False
   TextBox25.Enabled = False
   TextBox26.Enabled = False
   TextBox28.Enabled = False
   TextBox29.Enabled = False
   TextBox31.Enabled = False
   TextBox32.Enabled = False
   TextBox62.Enabled = False
   TextBox63.Enabled = False
   TextBox69.Enabled = False
   TextBox70.Enabled = False
   TextBox76.Enabled = False
   TextBox77.Enabled = False
   TextBox83.Enabled = False
   TextBox84.Enabled = False
   TextBox90.Enabled = False
   TextBox91.Enabled = False
   TextBox97.Enabled = False
   TextBox98.Enabled = False
   TextBox37.Enabled = False
   TextBox39.Enabled = False
   TextBox41.Enabled = False
   TextBox43.Enabled = False
   TextBox45.Enabled = False
   TextBox47.Enabled = False
   TextBox49.Enabled = False
   TextBox51.Enabled = False
   TextBox53.Enabled = False
   TextBox55.Enabled = False
   TextBox57.Enabled = False
   TextBox59.Enabled = False
   TextBox64.Enabled = False
   TextBox66.Enabled = False
   TextBox71.Enabled = False
   TextBox73.Enabled = False
   TextBox78.Enabled = False
   TextBox80.Enabled = False
   TextBox85.Enabled = False
   TextBox87.Enabled = False
   TextBox92.Enabled = False
   TextBox94.Enabled = False
   TextBox99.Enabled = False
   TextBox101.Enabled = False
End Sub

Der CommandButton3:   "Neuen Client anlegen " Textboxen alle leeren, in der Datenbank zum ersten leeren Feld Spalte A gehen dieses dann nach Ausfüllen der Textboxen alle Felder in der Zeile füllen 
 ---->>> noch nicht realisier, weil weis nicht wie!

Bisher Vorhanden:

Code:
Private Sub CommandButton3_Click()
   ListBox1.Enabled = False
   TextBox13.Enabled = True
   TextBox14.Enabled = True
   TextBox17.Enabled = True
   TextBox18.Enabled = True
   TextBox19.Enabled = True
   TextBox20.Enabled = True
   TextBox22.Enabled = True
   TextBox23.Enabled = True
   TextBox25.Enabled = True
   TextBox26.Enabled = True
   TextBox28.Enabled = True
   TextBox29.Enabled = True
   TextBox31.Enabled = True
   TextBox32.Enabled = True
   TextBox62.Enabled = True
   TextBox63.Enabled = True
   TextBox69.Enabled = True
   TextBox70.Enabled = True
   TextBox76.Enabled = True
   TextBox77.Enabled = True
   TextBox83.Enabled = True
   TextBox84.Enabled = True
   TextBox90.Enabled = True
   TextBox91.Enabled = True
   TextBox97.Enabled = True
   TextBox98.Enabled = True
   TextBox37.Enabled = True
   TextBox39.Enabled = True
   TextBox41.Enabled = True
   TextBox43.Enabled = True
   TextBox45.Enabled = True
   TextBox47.Enabled = True
   TextBox49.Enabled = True
   TextBox51.Enabled = True
   TextBox53.Enabled = True
   TextBox55.Enabled = True
   TextBox57.Enabled = True
   TextBox59.Enabled = True
   TextBox64.Enabled = True
   TextBox66.Enabled = True
   TextBox71.Enabled = True
   TextBox73.Enabled = True
   TextBox78.Enabled = True
   TextBox80.Enabled = True
   TextBox85.Enabled = True
   TextBox87.Enabled = True
   TextBox92.Enabled = True
   TextBox94.Enabled = True
   TextBox99.Enabled = True
   TextBox101.Enabled = True
   TextBox1.Enabled = True
   TextBox14.Enabled = True
   TextBox2.Enabled = True
   TextBox3.Enabled = True
   TextBox4.Enabled = True
   TextBox5.Enabled = True
   TextBox6.Enabled = True
   TextBox7.Enabled = True
   TextBox8.Enabled = True
   TextBox9.Enabled = True
   TextBox10.Enabled = True
   TextBox11.Enabled = True
   TextBox12.Enabled = True
   TextBox13.Enabled = True
   TextBox15.Enabled = False
   TextBox16.Enabled = False
   TextBox21.Enabled = False
   TextBox24.Enabled = False
   TextBox27.Enabled = False
   TextBox30.Enabled = False
   TextBox61.Enabled = False
   TextBox68.Enabled = False
   TextBox75.Enabled = False
   TextBox82.Enabled = False
   TextBox89.Enabled = False
   TextBox96.Enabled = False
   TextBox38.Enabled = False
   TextBox42.Enabled = False
   TextBox46.Enabled = False
   TextBox50.Enabled = False
   TextBox54.Enabled = False
   TextBox58.Enabled = False
   TextBox65.Enabled = False
   TextBox72.Enabled = False
   TextBox79.Enabled = False
   TextBox86.Enabled = False
   TextBox93.Enabled = False
   TextBox100.Enabled = False
   CommandButton5.Enabled = True
   CommandButton4.Enabled = True
End Sub


 Der CommandButton4:   "Zürück ohne Änderung"  ---->>> funktioniert



Code:
Private Sub CommandButton4_Click()
   Unload UserForm1
   UserForm1.Show
End Sub

Der CommandButton5: "Bearbeitung - Neu anlegen - Speichern!" funzt nur so wie im Code Beschrieben. Das ist aber nichts, da je nach Auswahl in der Listbox ja beim Ändern auch eine andere
Zeile in der Tabelle durtch die Textboxen geändert wird.

Code:
Private Sub CommandButton5_Click()
   Me.EnableEvents = False
   If Not IsEmpty(TextBox102) Then Worksheets("Tabelle3").Range("A7").Value = Me.TextBox102    'Das soll geändert werden - .Range- , so dass
                                                                                               'die Range nicht Fix -("A7") - geschrieben
                                                                                               'wird sondern aus dem List.Index der Listbox
                                                                                               'bezogen wird.
   
   
'       Worksheets("Tabelle3").Range("A7").Value = Me.TextBox102
     

'    With Range("Tabelle1!A2:BW205")
'        Me.Tag = "1"
'        .Cells(ListBox1.ListIndex + 1, 0).Value = Me.TextBox102
'        Me.Tag = ""
'    End With
   Unload UserForm1
   UserForm1.Show
End Sub

Anzumerken ist noch das im Worksheet 2 Tabellen sind - Tabelle1 und Tabelle3. --- Alles was ich beschrieben habe betrifft die Tabelle 3

Wer hilft ?

Blush


Angehängte Dateien
.xlsm   Test2.xlsm (Größe: 112,61 KB / Downloads: 15)
Suchen
Top
Käpt'n Blaubär Offline
pausiert
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
#2
04.03.2019, 17:22
Hallo Merlin,

ich würde Dir ja gerne helfen, aber ohne Beispieldatei, in der man auch mal was testen kann,
ist mir das ein paar Nümmerchen zu groß
Suchen
Top
Merlin-1962 Offline
pausiert
ThreadStarter
Registriert seit: 04.03.2019
Version(en): 2016
#3
04.03.2019, 17:29
Hallo,

Die Datei müßte als Anhang zu meinem Post dabei sein, aber lade Sie gerne noch einmal

LG


Angehängte Dateien
.xlsm   Test2.xlsm (Größe: 112,61 KB / Downloads: 11)
Suchen
Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#4
04.03.2019, 17:30
Hi Peter,

schau doch nochmal ans Ende seines Beitrags. Wink
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Suchen
Top
Käpt'n Blaubär Offline
pausiert
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
#5
04.03.2019, 18:07
Hallo Merlin, Hallo Günter,

@Merlin: Sorry, das habe ich wirklich übersehen, was daran liegt, daß ich nur noch ein funktionierendes Auge habe,
und auch das lange nicht mehr die volle Sehkraft besitzt.

@Günter: auch Dir danke ich für den Hinweis. Begründung siehe oben  :19:
Suchen
Top
Flotter Feger Offline
Ich versuche gut auszusehen
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
#6
04.03.2019, 19:28
Hallo,

normalerweise, würde ich sagen, warum editierst du die Daten nicht geich in der ListBox ? Genau dafür hab ich schließlich die EditableListBox geschrieben. :24:

Aber wenn ich mir deinen Code so ansehe, hast du ein ganz anderes Problem. Ich würde mal sagen, schau dir mal eher die Datei an ... ist zwar nur ein kleiner Ausschnitt dessen, was du haben willst, aber besser als nichts ... mal so zum Einlesen.

https://www.clever-excel-forum.de/attach...?aid=20337
Suchen
Top
Merlin-1962 Offline
pausiert
ThreadStarter
Registriert seit: 04.03.2019
Version(en): 2016
#7
04.03.2019, 21:06
Hallo Sabina,

ich habe mir mal Deine Datei beschreiben, bzw vorlesen lassen. Eine Schreibassistenz hat mal ein bischen damit rumgespielt.
Es ist leider so, das beim Bearbeiten eines Datensatzes Deine Userform immer einen neuen anlegt und nicht die Felder in der Zeile geändert werden.
Ich werde mir morgen mal mit der Sprachausgabe die einselnen SUB's vorlesen lassen. Ich denke das ich da zumindestens den Schritt neuen Clienten in den Griff bekomme.

Es bleibt jedoch weiter mein Problem, das mir die Formel fehlt, dass wenn ich in einer Textbox etwas ändere, Genau der Datensatz und genau das Feld in dieser Zeile
in der Tabelle geändert wird.

Aber Danke erst mal für das. Vielleicht hast Du doch eine Idee, wie ich es lösen könnte

Grüß

Jürgen
Suchen
Top
Flotter Feger Offline
Ich versuche gut auszusehen
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
#8
04.03.2019, 21:48
Hallo,

das stimmt wieder mal nur zur Hälfte ... wer richtig testet, ist deutlich im Vorteil.

Das mit dem Lesen können, das lass ich lieber mal weg, hab da so ein echt doofes Gefühl bei deiner Beschreibung.

Es gibt nämlich zwei verschiedene Button - der obere ändert einen bestehenden Datensatz und der zweite von oben, der legt den Datensatz als neu an.

Da müsste man nur mal die Beschriftungen der Button richtig interpretieren.

Ich hoffe, das war jetzt alles politisch korrekt ... bin schon des Öfteren in diese Fettnäpfe hineingesprungen ... und zwar meist mit vollem Anlauf ...
Suchen
Top
Merlin-1962 Offline
pausiert
ThreadStarter
Registriert seit: 04.03.2019
Version(en): 2016
#9
05.03.2019, 10:40 (Dieser Beitrag wurde zuletzt bearbeitet: 05.03.2019, 12:20 von WillWissen. Bearbeitungsgrund: Formatierung )
Liebe Sabina,

glaube mir, Du bis mit Sicherheit in keinen "Fettnapf" getreten.

Ich wollte Dich auch mit Sicherheit nicht in irgend einer Art und Weise kritisieren oder angreifen. Wenn das so rüber gekommen ist, dann entschuldige ich mich hiermit in aller Form.
Zum Testen deiner Beispieldatei konnte ich es Dir nur so beschreiben wie es mir das Sprachausgabeprogramm mitteilte und meine Schreibassistenz es mir beschrieb.
Wir haben die Datei mehrfach auch ohne das ein weiteres Worksheet geöffnet war ausprobiert.

Auch die unterschiedlichen Button haben wir gemerkt.
Ich möchte aber nicht ausschließen das wir vielleicht in der Bedienung einen Fehler machten.

Aber sei es so wie es ist.- Durch Deine Datei sind wir zu mindestens so viel weiter gekommen dass das Anlegen eines neuen Clienten möglich ist.

Das einzige wo wir nach einer Lösung suchen ist das beim Ändern einer Textbox genau das Feld in der Tabelle geändert wird.

Ich denke das kann nur mit der Zeile im Code:

----->>>  If Not IsEmpty(TextBox102) Then Worksheets("Tabelle3").Range("A7").Value = Me.TextBox102  <<<-----

zusammen hängen.

Hier müsste das .Range("A7").Value so abgeändert werden dass anstelle "A7" das zu ändernde Feld in der Tabelle aus dem List.Index der
ListBox bezogen wird.

Dass es an dieser Zeile hängt, verstehe ich dahingehend, da wenn ich aus "A7" manuell im Code daraus "A8" oder "Z7" ... mache diese Felder
- beim betätigen des Buttons - auch in der Tabelle geändert werden.

Nur habe ich bisher nichts gefunden in Bezug auf das WIE.

Vielleicht hast du die Lösung oder jemand anderes.

LG

Jürgen
Suchen
Top
Flotter Feger Offline
Ich versuche gut auszusehen
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
#10
05.03.2019, 12:06 (Dieser Beitrag wurde zuletzt bearbeitet: 05.03.2019, 12:06 von Flotter Feger.)
Hallo,

den Zusammenhang hast du schon korrekt erkannt. Versuch doch mal

Range("A" & CStr(ListBox1.ListIndex + 1)) 'Der ListIndex ist 0-basiert.

Ich hatte das eigentlich nicht als Kritik verstanden ... im Gegenteil.

Vermutlich bist du Sehbehindert oder Blind ... nehme ich jetzt mal an ...

Mit dieser Behinderung habe ich schon "Fettnapf-Erfahrungen" gesammelt. Zu Beginn waren sie schmerzhaft ... der junge Mann hatte mir im Messe-Gewühl mit der Schuhspitze voll auf den Knöchel getreten, dass es mir sogar den Pomps ausgezogen hat. Aber er hat mich aufgefangen und dann lag auch noch seine Hand auf meiner Brust ... dafür konnte er aber nichts ... er hat schließlich nur zugepackt, um mich vor dem Sturz zu bewahren.
Ich war stinksauer und hab ihn angeschnauzt, was ihm einfällt, mich zu treten und dann auch noch unsittlich zu begrabschen und er solle doch gefälligst hinschauen, wo er hinläuft.
Der junge Mann blieb völlig cool und meinte nur "Würde ich ja gern und sie würde ich liebend gern näher betrachten. Was ich bisher von ihnen in der Hand hatte, war extrem vielversprechend ... aber leider wird das nichts ... ich bin nämlich blind."
Der weitere Messetag mit ihm und seiner Assistenz, war dann aber noch extrem unterhaltsam ...
Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste