AW: Neue Zeile über Positionsfeld
06.08.2021 11:50:31
Max
Danke für die schnelle Antwort. Es wird nun immer eine weitere Zeile angesprochen, das freut mich schonmal sehr :)
Ich denke ich habe allerdings zu wenig Informationen bereit gestellt, die Ausgabe im neuen Feld erfolgt nun lediglich als "FALSCH" oder "WAHR".
Deshalb teile ich jetzt einmal den Gesamtcode wie ich ihn nach deiner Anleitung eingestellt habe, vielleicht fällt ja jemanden mein Fehler auf.
Private Sub CommandButton2_Click()
If Range("B7") = "" Then
Range("B7") = AAA.Value
Else
Range("B" & Cells(Rows.Count, "B").End(xlUp).Offset(1).Row) = Range("B7") = AAA.Value
End If
If Range("A7") = "" Then
Range("A7") = CCC.Value
Else
Range("A" & Cells(Rows.Count, "A").End(xlUp).Offset(1).Row) = Range("A7") = CCC.Value
End If
If Range("C7") = "" Then
Range("C7") = BBB.Value
Else
Range("C" & Cells(Rows.Count, "C").End(xlUp).Offset(1).Row) = Range("C7") = BBB.Value
End If
If Range("F7") = "" Then
Range("F7") = DDD.Value
Else
Range("F" & Cells(Rows.Count, "F").End(xlUp).Offset(1).Row) = Range("F7") = DDD.Value
End If
If Range("J7") = "" Then
Range("J7") = EEE.Value
Else
Range("J" & Cells(Rows.Count, "J").End(xlUp).Offset(1).Row) = Range("J7") = EEE.Value
End If
If Range("M7") = "" Then
Range("M7") = FFF.Value
Else
Range("M" & Cells(Rows.Count, "M").End(xlUp).Offset(1).Row) = Range("M7") = FFF.Value
End If
If Range("P7") = "" Then
Range("P7") = GGG.Value
Else
Range("P" & Cells(Rows.Count, "P").End(xlUp).Offset(1).Row) = Range("P7") = GGG.Value
End If
If Range("S7") = "" Then
Range("S7") = HHH.Value
Else
Range("S" & Cells(Rows.Count, "S").End(xlUp).Offset(1).Row) = Range("S7") = HHH.Value
End If
If Range("V7") = "" Then
Range("V7") = III.Value
Else
Range("V" & Cells(Rows.Count, "V").End(xlUp).Offset(1).Row) = Range("V7") = III.Value
End If
If Range("Y7") = "" Then
Range("Y7") = JJJ.Value
Else
Range("Y" & Cells(Rows.Count, "Y").End(xlUp).Offset(1).Row) = Range("Y7") = JJJ.Value
End If
If Range("AB7") = "" Then
Range("AB7") = KKK.Value
Else
Range("AB" & Cells(Rows.Count, "AB").End(xlUp).Offset(1).Row) = Range("AB7") = KKK.Value
End If
If Range("AE7") = "" Then
Range("AE7") = ZZZ.Value
Else
Range("AE" & Cells(Rows.Count, "AE").End(xlUp).Offset(1).Row) = Range("AE7") = ZZZ.Value
End If
If Range("AH7") = "" Then
Range("AH7") = XXX.Value
Else
Range("AH" & Cells(Rows.Count, "AH").End(xlUp).Offset(1).Row) = Range("AH7") = XXX.Value
End If
If Range("AK7") = "" Then
Range("AK7") = YYY.Value
Else
Range("AK" & Cells(Rows.Count, "AK").End(xlUp).Offset(1).Row) = Range("AK7") = YYY.Value
End If
If Range("AN7") = "" Then
Range("AN7") = WWW.Value
Else
Range("AN" & Cells(Rows.Count, "AN").End(xlUp).Offset(1).Row) = Range("AN7") = WWW.Value
End If
If Range("AQ7") = "" Then
Range("AQ7") = QQQ.Value
Else
Range("AQ" & Cells(Rows.Count, "AQ").End(xlUp).Offset(1).Row) = Range("AQ7") = QQQ.Value
End If
If Range("AT7") = "" Then
Range("AT7") = TTT.Value
Else
Range("AT" & Cells(Rows.Count, "AT").End(xlUp).Offset(1).Row) = Range("AT7") = TTT.Value
End If
If Range("AW7") = "" Then
Range("AW7") = PPP.Value
Else
Range("AW" & Cells(Rows.Count, "AW").End(xlUp).Offset(1).Row) = Range("AW7") = PPP.Value
End If
If Range("AZ7") = "" Then
Range("AZ7") = VVV.Value
Else
Range("AZ" & Cells(Rows.Count, "AZ").End(xlUp).Offset(1).Row) = Range("AZ7") = VVV.Value
End If
Es geht also um eine größere Anzahl von Werten welche dann in einer neuen Zeile ausgegeben werden soll.
Vielen Dank für eure Hilfe!