Thema Datum  Von Nutzer Rating
Antwort
25.01.2011 12:38:06 Gerhard
NotSolved
25.01.2011 13:27:31 Severus
NotSolved
25.01.2011 14:00:18 Gerhard
NotSolved
25.01.2011 15:09:00 Severus
NotSolved
25.01.2011 15:44:31 Gerhard
NotSolved
25.01.2011 16:36:08 Severus
NotSolved
26.01.2011 07:51:36 Gerhard
NotSolved
26.01.2011 08:57:37 Severus
NotSolved
26.01.2011 09:08:58 Gerhard
NotSolved
26.01.2011 09:39:34 Severus
NotSolved
26.01.2011 09:45:25 Gerhard
NotSolved
26.01.2011 10:01:50 Severus
NotSolved
26.01.2011 10:10:38 Gast98443
NotSolved
26.01.2011 11:01:59 Severus
NotSolved
26.01.2011 11:12:04 Gerhard
NotSolved
26.01.2011 11:15:57 Severus
NotSolved
26.01.2011 11:19:40 Gerhard
NotSolved
Blau Daten aus Tabelle in USERFORM übernehmen
 26.01.2011 11:07:33 Severus
NotSolved
26.01.2011 11:24:33 Gerhard
NotSolved
26.01.2011 11:34:22 Severus
NotSolved
26.01.2011 11:36:27 Gerhard
NotSolved
26.01.2011 11:52:37 Severus
NotSolved
26.01.2011 12:01:03 Gerhard
NotSolved
26.01.2011 12:20:54 Severus
NotSolved
26.01.2011 12:47:42 Gerhard
NotSolved
26.01.2011 12:50:10 Severus
NotSolved
26.01.2011 12:53:49 Gerhard
NotSolved
26.01.2011 13:14:05 Severus
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
26.01.2011 11:07:33		 Views:
1642		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus Tabelle in USERFORM übernehmen		 
Private Sub ComboBox56_Change()

Dim lngZeile As Long
If ComboBox56.ListIndex <> -1 Then
     lngZeile = ComboBox56.ListIndex + 3 'Beginnt mit A3, also Zeile 3, der Index beginnt mit 0
     TextBox53.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 1)
     TextBox2.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 2)
     TextBox3.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 3)
     TextBox49.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 4)
     TextBox50.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 5)
     ComboBox10.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 6)
     ComboBox1 = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 8)
     TextBox5.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 9)
    TextBox6.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 10)
    TextBox48.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 11)
    TextBox7.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 12)
    TextBox51.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 13)
    TextBox8.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 14)
    ComboBox20.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 15)
    ComboBox22.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 16)
     End If
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
25.01.2011 12:38:06 Gerhard
NotSolved
25.01.2011 13:27:31 Severus
NotSolved
25.01.2011 14:00:18 Gerhard
NotSolved
25.01.2011 15:09:00 Severus
NotSolved
25.01.2011 15:44:31 Gerhard
NotSolved
25.01.2011 16:36:08 Severus
NotSolved
26.01.2011 07:51:36 Gerhard
NotSolved
26.01.2011 08:57:37 Severus
NotSolved
26.01.2011 09:08:58 Gerhard
NotSolved
26.01.2011 09:39:34 Severus
NotSolved
26.01.2011 09:45:25 Gerhard
NotSolved
26.01.2011 10:01:50 Severus
NotSolved
26.01.2011 10:10:38 Gast98443
NotSolved
26.01.2011 11:01:59 Severus
NotSolved
26.01.2011 11:12:04 Gerhard
NotSolved
26.01.2011 11:15:57 Severus
NotSolved
26.01.2011 11:19:40 Gerhard
NotSolved
Blau Daten aus Tabelle in USERFORM übernehmen
 26.01.2011 11:07:33 Severus
NotSolved
26.01.2011 11:24:33 Gerhard
NotSolved
26.01.2011 11:34:22 Severus
NotSolved
26.01.2011 11:36:27 Gerhard
NotSolved
26.01.2011 11:52:37 Severus
NotSolved
26.01.2011 12:01:03 Gerhard
NotSolved
26.01.2011 12:20:54 Severus
NotSolved
26.01.2011 12:47:42 Gerhard
NotSolved
26.01.2011 12:50:10 Severus
NotSolved
26.01.2011 12:53:49 Gerhard
NotSolved
26.01.2011 13:14:05 Severus
Solved