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

Zeile von Bereich in Bereich im gleichen TB

Forumthread: 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
Anzeige

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
Anzeige
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

Forumthreads zu verwandten Themen

Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Daten aus Zelle in Bereich
Swen

Hi @ all,
ich möchte gerne einen Wert aus einer zelle in einen bereichübernehmen,
habe es wie folgt versucht
With ThisWorkbook
.Sheets("auto").Range(.Sheets("auto").Cells(2, intCol2), _
.Sheets("auto").Cells(intRowsData, intCol2)).Value _
= .Sheets(strDateiname).Cells(i...
17.10.2008 19:17:00
Thread-ID: 1017255
5 Beiträge
Bereich in Bereich ausblenden
Kai

Hallo zusammen,
ich habe ein Tabellenblatt mit dem Bereich: A1:P38
In Abhängigkeit einer Zahl in einer anderen Zelle eines anderen Tabellenblatts, möchte ich Teilbereiche nicht anzeigen lassen, wie z.b. den Bereich: E20:H38
Ein ausblenden von Zeilen, oder Spalten kommt nicht in Frag...
23.10.2008 18:20:00
Thread-ID: 1018769
21 Beiträge
Anzeige
For each c in Bereich
Gregor

Hallo
Ich habe folgende Abfrage:
For Each c In Bereich
Wert = Cells(c.Row, 7).Value
If Wert "kein" Then
usw.
Ich möchte also bei c (Zeile) Spalte 7 den Wert abfragen und je nach Wert weiterfahren. Bereich ist in Spalte 5 definiert.
Wie komme ich zu dieser Zeilen-Nu...
24.10.2008 16:32:40
Thread-ID: 1019066
8 Beiträge
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
vba farben erkennen und in bereiche verschieben
M.

Hallo zusammen,
ich habe in einer Excel-Tabelle 3 Bereiche mit je 4x6 Zellen, die grün, blau und rot eingefärbt sind. In den Zellen stehen Namen.
Je nach Wochentag sollten die grünen den Platz der roten, die blauen den Platz der grünen und die roten den Platz der blauen Zellen einnehmen...
21.12.2008 13:39:00
Thread-ID: 1034597
5 Beiträge
Summe mit Bedingung in Bereich
Christian

Hallo zusammen,
ich hoffe, es kann mir jemand helfen :-) Es geht um folgendes Problem:
Ich habe eine Finanztabelle, in der jeder Monat eine eigene Spalte (beginnend bei B) hat. Die Bezeichnungen der monatlich wiederkehrenden Kosten sind in Spalte A untergebracht. Es gibt Ausgaben, die f...
04.01.2009 18:02:00
Thread-ID: 1036788
5 Beiträge
Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Einfügen in Bereich mit definiertem Namen
Beni

In Tabelle Offerte ist der Name "Bereich"vergeben. A9:H17 aus Tabelle Preis sollten in den "Bereich" eingefügt werden, jeweils in die nächste leere Zelle. Nur geht das so nicht.
Vielen Dank für eure Hilfe
Sheets("Preis"). Range("A9:H17")
Selection.Copy
Range("Bereich").Cells(Row...
20.05.2009 21:35:17
Thread-ID: 1076503
3 Beiträge
Anzeige
Leere Zelle in Bereichen suchen.
Hans

Hallo Leute,
ich habe ein Problem und bekomme es in VBA nicht gelöst.
Es stellt sich folgende Problemstellung :
Ich habe drei Bereich .. jeweils über nur eine Spalte.
Bereich 1 heisst "Wert1" und ist in Spalte A
Bereich 2 heisst "Wert2" und ist in Spalte B
Bereich 3 hei...
11.12.2009 20:05:19
Thread-ID: 1123393
4 Beiträge
Anzeige
UDF, wenn x-te Stelle in Bereichen 0 u. eingeblen.
Simon

Guten Tag
Ich habe folgende Problemstellung, die ich gerne mit einem UDF lösten möchte:
- eine oder mehrere Spaltenbereiche mit gleichviel Zellen (im Beispiel benannt mit Bereich_A, Bereich_V, Bereich_X)
- wenn in der x-ten Zeile aller Bereiche ein Nullwert steht (oder eine der Wert...
06.05.2010 19:33:43
Thread-ID: 1155885
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige