VBA Code
07.01.2016 14:02:02
Sentel
Nun hattet ihr ja ein wenig Ruhe vor mir, doch stehe ich nun wieder vor einem Problem welches ich durch Recherche einfach nicht lösen kann.
Den folgenden Code möchte ich gerne für eine Tabelle bis zur Zeile 400 Kopieren, also so dass falls in einer Zeile ein x steht die dazugehörige Zelle in eine andere kopiert wird.Ich könnte dies ja 400 mal eingeben, aber da wird es doch was kürzeres geben oder?
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I5").Value = "X" Or Range("I5").Value = "x" Then
Range("I5").ClearContents
Range("H5").Select
Selection.Copy
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Also soll dies hier nicht nur für Zeile 5, sondern für alle Zeilen bis Zeile 400 gelten. Ich hoffe mein Vorhaben wird deutlich.Danke für eure Hilfe.
Gruß Sentel