makro endlosschleife
11.06.2009 14:35:05
Nick
ich beginne mit vba programmierung in excel und möchte eine stückliste erstellen, die aus mehreren tabellen besteht. ab der überschreitung der max-länge soll sich die tabelle, die gerade ausgefüllt wurde, kopieren und unter der tabelle wieder einfügen und die eingetragenen werte löschen, so dass weitere eingaben folgen können. mit meinem code bekomme ich allerdings nciht nur eine neue tabelle eingefügt sondern unendlich, bis excel abschmiert. es wäre toll wenn einer von euch durch geschulten blick schnell auf meine fehler aufmerksam wird.
hier mein quellcode
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim zelle As Range
For Each zelle In UsedRange.Cells
If zelle.Column = 19 And zelle.Row = 7 Then //hier würde ich auch gerne nur einzelne zellen _
ansprechen und keine range
If zelle.Value 2000 Then
MsgBox ("Bitte den letzten Eintrag ändern, da die Lieferlänge bereits überschritten wurde")
Range("A3:T8").Select // folgendes hab ich unter excel makro aufzeichnen lassen
Selection.Copy
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Range("D11:L12").Select
Range("L12").Activate
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Selection.ClearContents
End If
End If
Next zelle
End Sub
Ich bin für jede Hilfe dankbar,
mfG, nick
ps: ich hab soviel rumprobiert, dass nun einfache summen nicht aktualisiert werden, kann man sowas abstellen und wenn ja wie stelle ich es wieder an ?