AW: Zeile von Bereich in Bereich im gleichen TB
31.05.2017 12:05:09
Bereich
Hallo Gisela
anbei der Code den du in Tabellenblatt1 kopieren msut. Damit sollte es klappen wie du wünschst.
Wenn alles klappt bitte den Thread schliessen, Haeckchen in der KontrollBox löschen.
Ich habe auf die schnelle zwei Lösungen ausgearbeitet, nimm die welche dir am besten gefaellt.
Man kann in Target auswerten und das Makro in Modul1 aufrufen, oder den Code in Tabelle1 kopieren.
Beides Lösungen scheinen gleich gut zu funktionieren. Rückmeldung waere nett.
mfg Piet
Private Sub Worksheet_Change(ByVal Target As Range)
'nur Spalte H zulassen, sonst Exit
If Target.Column 8 Then Exit Sub
If Target.Value "aktiv" Then Exit Sub
'nur Bereich von Zeile 34 bis Zeile 60 zulassen
If Target.Row > 33 And Target.Row
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AC As Range, Adr As String
Dim a As Integer, j As Integer
'nur Spalte H zulassen, sonst Exit
If Target.Column 8 Then Exit Sub
If Target.Value "aktiv" Then Exit Sub
'nur Bereich von Zeile 34 bis Zeile 60 zulassen
If Target.Row > 33 And Target.Row