Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.11.2015 22:54:51 |
Pauli27 |
|
|
|
23.11.2015 01:04:28 |
Gast82468 |
|
|
|
23.11.2015 09:16:02 |
Gast91923 |
|
|
|
23.11.2015 09:18:04 |
Pauli27 |
|
|
ListBox Einträge zurückschreiben |
23.11.2015 09:47:14 |
Gast74858 |
|
|
|
23.11.2015 16:00:11 |
Paul27 |
|
|
|
24.11.2015 12:19:22 |
Gast74043 |
|
|
Von:
Gast74858 |
Datum:
23.11.2015 09:47:14 |
Views:
1081 |
Rating:
|
Antwort:
|
Thema:
ListBox Einträge zurückschreiben |
Hallo,
okidoki, dann hier mal ein Ansatz:
Option Explicit
Private Const START_ROW As Long = 2
Private mlngListIndex As Long
Private mblnNoClick As Boolean
Private Sub UserForm_Activate() '// EINLESEN DER DATEN
With ListBox1
.List() = Worksheets("Tabelle1").Range("A2:H20000").Value
.ColumnWidths = "50;70;50;70;50;50;50"
.ColumnCount = 7
.ColumnHeads = True
End With
End Sub
Private Sub CommandButton1_Click() '// ZURÜCKSPEICHERN AND REFRESH
Dim lngColumn As Long
For lngColumn = 1 To 7
Worksheets("Tabelle1").Cells(START_ROW + mlngListIndex, lngColumn).Value = _
CDbl(Controls("TextBox" & lngColumn).Value)
Next
Call prcRefresh
End Sub
Private Sub ListBox1_Click() '// BEI KLICK IN DIE TEXTBOXEN LADEN
Dim lngColumn As Long
If Not mblnNoClick Then
With ListBox1
For lngColumn = 1 To 7
Controls("TextBox" & lngColumn).Value = _
.List(pvargIndex:=.ListIndex, pvargColumn:=lngColumn - 1)
Next
mlngListIndex = .ListIndex
End With
End If
End Sub
Private Sub prcRefresh()
Dim lngColumn As Long
mblnNoClick = Not mblnNoClick
For lngColumn = 1 To 7
ListBox1.List(pvargIndex:=mlngListIndex, pvargColumn:=lngColumn - 1) = _
Worksheets("Tabelle1").Cells(START_ROW + mlngListIndex, lngColumn).Value
Next
mblnNoClick = Not mblnNoClick
End Sub
Btw, den Code kann man über den Code-Button aus der Editiersymbolleiste hier reinstellen, die kann allerdings manchmal im Nirvana verschwinden...
Gruß,
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
22.11.2015 22:54:51 |
Pauli27 |
|
|
|
23.11.2015 01:04:28 |
Gast82468 |
|
|
|
23.11.2015 09:16:02 |
Gast91923 |
|
|
|
23.11.2015 09:18:04 |
Pauli27 |
|
|
ListBox Einträge zurückschreiben |
23.11.2015 09:47:14 |
Gast74858 |
|
|
|
23.11.2015 16:00:11 |
Paul27 |
|
|
|
24.11.2015 12:19:22 |
Gast74043 |
|
|