Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile von Bereich in Bereich im gleichen TB

Zeile von Bereich in Bereich im gleichen TB
30.05.2017 18:50:30
Bereich
Hallo,
nach zwei Tagen vergeblicher Versuche, benötige ich Hilfe für folgendes Problem:
Alles innerhalb eines TB.
Wenn in Spalte H, Bereich B34:I60, wort "aktiv" eingetragen wird,
sollen die Werte der Zeile in den Zellen B,C,D,E,F,G,H,I
in die nächste freie Zeile des obigen Bereichs B2:B30 eingefügt
werden.
Im unteren Bereich sollen die verbleibenden unteren Zeilen aufrücken
Wenn der obere Bereich ( B2:I30) gefüllt ist, soll eine msg. erscheinen.
https://www.herber.de/bbs/user/113892.xlsx
Vielen Dank für jede Unterstützung
Gisela

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile von Bereich in Bereich im gleichen TB
31.05.2017 06:03:07
Bereich
Hallo Gisela
anbei deine Beispieldatei zurück. Ich hoffe es klappt wie du es wolltest.
Die Datei muss allerdings als .xlsm gespeichert werden, wegen dem Makro!
https://www.herber.de/bbs/user/113901.xlsm
AW: Zeile von Bereich in Bereich im gleichen TB
31.05.2017 09:20:19
Bereich
Hallo Piet,
herzlichen Dank für deine Hilfe.
Kann ich die Aktivierung auch über
Private Sub Worksheet_Change(ByVal Target As Range)
machen.
Oder muss dann etwas geändert werden?
Grüße
Gisela
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 

Anzeige
Ganz Toll - Vielen Dank - funktioniert super o.T
31.05.2017 12:18:11
Gisela
o.T
AW: Zeile von Bereich in Bereich im gleichen TB
31.05.2017 06:09:50
Bereich
Nachtrag
bitte zuerst die Daten aus deiner Originaldatei in der Beispieldatei testen ob alles einwandfrei funktioniert.
Vor allem darauf achten das ich im unteren Bereich beim "nach oben schieben" nicht versehentlich Daten lösche!
mfg Piet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige