VBA speichern in neue Zeile

'Arbeitsblatt wählen Dim Eingang As Worksheet Set Eingang = Worksheets("Eingang") 'Erste freie Zeile Ausfindig machen Dim last As Integer last = Eingang.Cells(Rows.Count, 3).End(xlUp).Row + 1 'Datum Cells(nfrei, 1).Value = TextBox_Datum.Value '24V H4 Cells(last, 6).Value = "24V H4" Cells(last, 7).Value = TextBox_24VH4.Text '24V H7 Cells(last, 8).Value = "24V H7" Cells(last, 9).Value = TextBox_24VH7.Text '24V P21W Cells(last, 10).Value = "24V P21W" Cells(last, 11).Value = TextBox_24VP21W.Text

'Arbeitsblatt wählen Dim Eingang As Worksheet Set Eingang = Worksheets("Eingang") 'Erste freie Zeile Ausfindig machen Dim last As Integer Dim nfrei As Integer Dim lasts As Integer nfrei = Eingang.Cells(Rows.Count, 3).End(xlUp).Row + 1 last = nfrei + 1 lasts = last + 1 'Datum Cells(nfrei, 1).Value = TextBox_Datum.Value '24V H1 If Trim(TextBox_24VH1.Text) "" Then Cells(nfrei, 1).Value = TextBox_Datum.Value Cells(nfrei, 2).Value = "24V H1" Cells(nfrei, 3).Value = TextBox_24VH1.Text Else End If '24V H3 If Trim(TextBox_24VH1.Text) = "" Then Cells(nfrei, 1).Value = TextBox_Datum.Value Cells(nfrei, 2).Value = "24V H3" Cells(nfrei, 3).Value = TextBox_24VH3.Text Else Cells(last, 1).Value = TextBox_Datum.Value Cells(last, 2).Value = "24V H3" Cells(last, 3).Value = TextBox_24VH3.Text End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim Ctrl For Each Ctrl In Me.Controls If InStr(1, Ctrl.Name, "TextBox_24VH", vbTextCompare) > 0 Then With Eingang.Cells(Rows.Count, 3).End(xlUp) .Offset(1, 0).Value = TextBox_Datum.Value .Offset(1, 1).Value = Replace(Replace(Ctrl.Name, "TextBox_", ""), "VH", "V H") .Offset(1, 2).Value = Ctrl.Text End With End If Next End Sub

Sub test() Dim Ctrl For Each Ctrl In Me.Controls If InStr(1, Ctrl.Name, "TextBox_24V", vbTextCompare) > 0 Then With Eingang.Cells(Rows.Count, 3).End(xlUp) .Offset(1, 0).Value = TextBox_Datum.Value .Offset(1, 1).Value = Replace(Ctrl.Name, "TextBox_24V", "24V ") .Offset(1, 2).Value = Ctrl.Text End With End If Next End Sub

Hallo Yal,
Vielen Dank erstmal dafür, das sieht ja schon ziemlich nach dem aus was ich möchte.
Hab das auch so ausprobiert. Er Listet dann nach unten auf, was ja passt.
Allerdings auch die, die keinen Wert enthalten, was nicht so sein sollte.
Was ich aus Version 2 geändert habe ist:


Sub Button_SaveEnd_Click()
Dim Eingang As Worksheet
Set Eingang = Worksheets("Eingang")
Dim Ctrl
For Each Ctrl In Me.Controls
If InStr(1, Ctrl.Name, "TextBox_24V", vbTextCompare) > 0 Then
With Eingang.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = TextBox_Datum.Value
.Offset(1, 1).Value = Replace(Ctrl.Name, "TextBox_24V", "24V ")
.Offset(1, 2).Value = Ctrl.Text
End With
Else
If InStr(1, Ctrl.Name, "TextBox_12V", vbTextCompare) > 0 Then
With Eingang.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = TextBox_Datum.Value
.Offset(1, 1).Value = Replace(Ctrl.Name, "TextBox_12V", "12V ")
.Offset(1, 2).Value = Ctrl.Text
End With
Else
If InStr(1, Ctrl.Name, "TextBox_DI", vbTextCompare) > 0 Then
With Eingang.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = TextBox_Datum.Value
.Offset(1, 1).Value = Replace(Ctrl.Name, "TextBox_DI", "")
.Offset(1, 2).Value = Ctrl.Text
End With
End If
End If
End If
Next
ThisWorkbook.Save
ThisWorkbook.RefreshAll
Unload Me
End Sub

Kann es sein das ich hier bei den TextBox was falsch gemacht habe?

Private Sub UserForm_Initialize()
'24VH1
SpinButton_24VH1.Min = 0
SpinButton_24VH1.Value = 0

Private Sub SpinButton_24VH1_Change()
TextBox_24VH1.Text = SpinButton_24VH1.Value
End Sub

Oder könnte man das noch erweitern mit dem hier (gerade woanders gefunden)


Dim lngSpalte as Long
Dim anst as Variant
lngSpalte = 3
For anst = Eingang.Cells(Rows.Count, lngSpalte).End(xlUp).Row To 1 Step -1
If Eingang.Cells(anst, 1).Value = "" Then
Rows(anst).Delete shift:=xlUp
End If
Next anst

Nochmal Vielen Dank für die Hilfe bisher, und die die vielleicht noch kommen mag.
Grüße Matthias

Sub Button_SaveEnd_Click() Dim Eingang As Worksheet Dim Ctrl Dim Name const sk = ";" Set Eingang = Worksheets("Eingang") For Each Ctrl In Me.Controls For Each Name In Array("TextBox_24V;24V ", "TextBox_12V;12V ", "TextBox_DI;") If InStr(1, Ctrl.Name, Split(Name, sk)(0), vbTextCompare) > 0 Then If (Ctrl.Text "" And Ctrl.Text 0) Then With Eingang.Cells(Rows.Count, 1).End(xlUp) .Offset(1, 0).Value = TextBox_Datum.Value .Offset(1, 1).Value = Replace(Ctrl.Name, Split(Name, sk)(0), Split(Name, sk) _ (1)) .Offset(1, 2).Value = Ctrl.Text End With End If End If Next Next ThisWorkbook.Save ThisWorkbook.RefreshAll Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA speichern in neue Zeile

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread