AW: Transpose
05.11.2013 10:33:07
Nils
Hallo Erich,
vielen vielen Dank. Das klappt jetzt :)
Ich aber noch eine Frage wenn möglich:
ich habe jetzt mein Userform mit dropdown Listen erstellt.
Ich möchte jetzt 4 Parameter eingeben z.B Ort, Zeit, Reparatur, Ersatzteile
Und möchte dadurch nur die Maschinen die von diesen vier eigegebenen Parameter in einer separaten (am best gleich eine neue Tabelle) anzeigen lassen.
Wie könnte ich dieses tun?
bist jetzt habe ich das gemacht:
Private Sub cboOutage_Change()
End Sub
Private Sub cmdAbbruch_Click()
'schliesst Formular Dateneingabe
Unload Dateneingabe
End Sub
Private Sub cmdEingabe_Click()
'Fügt die eingetragenen Werte ins Tabellenblatt schliesst Formular Dateneingabe
Dim inErsteLeereZeile As Long
With ActiveSheet
inErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(inErsteLeereZeile, 1).Value = Me.cboPrio.Value
ActiveSheet.Cells(inErsteLeereZeile, 2).Value = Me.cboTypenbezeichnung.Value
ActiveSheet.Cells(inErsteLeereZeile, 3).Value = Me.cboOutage.Value
ActiveSheet.Cells(inErsteLeereZeile, 4).Value = Me.cboEOH.Value
'MsgBox inErsteLeereZeile
End With
Unload Dateneingabe
End Sub
Private Sub UserForm_Initialize()
'Werte beim Aufruf des Formular eitragen.Formular initialisieren
Dim rngKategorien As Range
With Me
.cboTypenbezeichnung.List = Range("Typenbezeichnung").Value
.cboEOH.List = Application.Transpose(Range("EOH").Value)
.cboOutage.List = Application.Transpose(Range("Outage").Value)
.cboPrio.List = Range("Prio").Value
End With
End Sub
Ich wäre dir enorm dankbar, wenn du mir weiterhelfen könntest. Ich hänge schon seit 10std dran, und komme nicht voran!