Hallo zusammen,
habe folgendes Problem: Ich möchte über UserForm das Tabellenblatt auswählen und dann in der Tabelle nach einer leeren Zeile schauen und dann die Werte dort reinpacken, die ich über UserForm eingebe. Bisher klappt alles, bis auf, dass er nach der nächsten freien Zeile in der Spalte sucht.
vielen Dank im Voraus!
Liebe Grüße
Kilic, Ali
Der Code:
Private Sub Button_Take_Click()
'Einträge der Schaltflächen in die Arbeitsmappe übernehmen
ThisWorkbook.Sheets(MAE_Nummer.Text).Select
Dim last As Variant
last = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
ActiveSheet.Cells(last, 5).Value = meinFormular.Text_Minuten.Value
ActiveSheet.Cells(last, 8).Value = meinFormular.Auswahl_Ursache
ActiveSheet.Cells(6, 2).Value = meinFormular.Zustand_MAE
End Sub
Private Sub UserForm_Initialize()
'Einträge für die Schaltfläche
Dim sh As Worksheet
Dim i As Integer
Dim objSheet As Object
For Each objSheet In ThisWorkbook.Worksheets
MAE_Nummer.AddItem objSheet.Name
Next
MAE_Nummer.Text = ActiveSheet.Name
Set sh = ThisWorkbook.Sheets("Katalog")
Me.Auswahl_Ursache.Clear
For i = 6 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Me.Auswahl_Ursache.AddItem sh.Range("A" & i).Value
Next i
Set sh = ThisWorkbook.Sheets("Katalog")
Me.Zustand_MAE.Clear
For i = 5 To sh.Range("G" & Application.Rows.Count).End(xlUp).Row
Me.Zustand_MAE.AddItem sh.Range("G" & i).Value
Next i
End Sub
|