So fügen Sie Zeilen basierend auf einem Zellenwert in Excel ein

Question

Ich habe eine Excel-Tabelle, die eine Tabelle enthält. Ich möchte in der Lage sein, eine bestimmte Anzahl von Zeilen abhängig von dem in eine bestimmte Zelle eingefügten Wert einzufügen. Wenn also der Wert '3' ist, werden 3 Zeilen eingefügt, wenn der Wert '6' ist, werden 6 Zeilen usw. eingefügt. Ich kenne die Art und Weise, dieses Problem zu lösen. Kann mir jemand helfen, dieses Problem zu lösen?

Answer 1

vorausgesetzt:

• Zelle "A1" ist derjenige, in dem Sie eine Benutzereingabe annehmen würde

• Zeilen werden direkt unterhalb Zelle "A1"

die eingefügt werden Sie können versuchen, diesen Code in den entsprechenden Codebereich des Arbeitsblatts einzufügen:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Selection.Count > 1 Then Exit Sub '<-| exit if edited cell is part of a selection larger than 1 cell 

    With Target '<-- reference changed cell 
     If .Address = "$A$1" Then '<--| proceed if it is the "Rows n° to add" cell (change "$A$1" to your actual relevant cell address) 
      If IsNumeric(.Value) Then '<--| proceed if it contains a numeric value 
       If CLng(.Value) > 0 And CLng(.Value) < 3 Then '<--| proceed if its value fits some numeric range (change range bounds to you actual needs) 
        .Offset(1).Resize(CLng(.Value)).EntireRow.Insert 
       End If 
      End If 
     End If 
    End With 
End Sub 

siehe Kommentare, wo Sie Benutzereingabe Validierung anpassen können