Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Kopieren eines Zellbereiches

Forumthread: Automatisches Kopieren eines Zellbereiches

Automatisches Kopieren eines Zellbereiches
30.07.2007 14:19:02
Bernd
Hallo,
ich habe hier folgende Prozedur, die dafür sorgt, dass bei Eingabe in Zelle G21 der Wert nach Zelle C21 geschrieben wird:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("G21").Address Then
Debug.Print Target.Address
Range("C21") = Range("G21")
End If
End Sub


Nun meine Frage; Wie muss ich die Prozedur anpassen, damit ich z.B. bei Eingabe in G21- G60 der Wert nach C21 - C60 übertragen wird?
Gruß
Bernd

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Kopieren eines Zellbereiches
30.07.2007 14:29:00
sergiesam
Hi,
mit Intersect überprüfst du den Schnittmengen-Bereich:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G21:G60")) Is Nothing Then
Debug.Print Target.Address
Target.Offset(0, -4).Value = Target.Value
End If
End Sub


hier kannst du sogar alle Zellen löschen, werden in C auch alle Zellen gelöscht.
lg,
Sam

Anzeige
AW: Automatisches Kopieren eines Zellbereiches
30.07.2007 14:29:00
sergiesam
Hi,
mit Intersect überprüfst du den Schnittmengen-Bereich:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G21:G60")) Is Nothing Then
Debug.Print Target.Address
Target.Offset(0, -4).Value = Target.Value
End If
End Sub


hier kannst du sogar alle Zellen löschen, werden in C auch alle Zellen gelöscht.
lg,
Sam

Anzeige
AW: Automatisches Kopieren eines Zellbereiches
30.07.2007 22:54:42
Bernd
Hallo zusammen,
besten Dank für die Hilfe. Klappt nun vorzüglich!
Gruß
Bernd

AW: Automatisches Kopieren eines Zellbereiches
30.07.2007 14:30:27
Rudi
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G21:G60")) Is Nothing Then
Target.Offset(0, -4) = Target
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Forumthreads zu verwandten Themen

Kopieren eines Bereiches in ein neues Arbeitsblatt
Anett

Hallo,
ich habe ein Problem bei dem ich nicht weiterkomme:
Ich möchte einen Bereich aus einem Arbeitsblatt in ein anderes von insgesamt 20 Arbeitsblatt kopieren. Allerdings gibt es noch eine Schwierigkeit: Der zu kopierende Bereich hat 124 Zeilen. Jede Zeile soll abhängig von Ihrem Inha...
10.09.2008 11:12:00
Thread-ID: 1008687
2 Beiträge
Zellinhalte eines Bereiches in MsgBox?
Robert

Hallo,
ich stehe vor dem Problem, dass ich die Zellinhalte eines festen Bereiches (IU1:IU20), sofern überhaupt Einträge dort vorhanden sind, diese ausgeben müsste.
Dachte das würde mit einer MsgBox funktionieren. Ich kriegs nicht auf die Reihe. Den Inhalt einer Zelle anzuzeigen ist kein...
07.11.2008 18:31:54
Thread-ID: 1022782
3 Beiträge
Anzeige
Adresse des benannten Bereiches ohne VBA
Peter

Guten Abend
Gibt es eine Möglichkeit, mittels einer Formelabfrage ausfindig zu machen, wo ein bestimmter Bereich liegt?
Angenommen der Druckbereich in Tabelle1 ist B2:P2 müsste das Ergebnis der Abfrage
=Tabelle1!$B$2:$P$2
sein.
Gruss, Peter
06.01.2009 22:09:00
Thread-ID: 1037380
16 Beiträge
letzter Eintrag eines Bereiches (begrenzte Spalte)
walter

Hallo und guten Abend,
ich suche eine Formel (kein Makro) um den letzten Eintrag eines Spaltenbereiches in einer anderen Zelle darzustellen.
Wer weiß Rat ?
Danke + Gruß
Walter
11.02.2009 23:17:00
Thread-ID: 1049842
4 Beiträge
Letzte Zeile eines Bereiches finden
Claudia

Hallo zusammen,
ich suche per Formel die letzte belegte Zelle im Bereich E22:E33. Kann mir da jemand helfen? Es darf nicht die letzte belegte Zelle in Spalte E sein, weil im Anschluss noch Zellen belegt sind.
Danke!
Viele Grüße
Claudia
27.04.2009 15:07:05
Thread-ID: 1071392
9 Beiträge
Anzeige
Namensbereichesbeschriftung unischtbar machen
Herbert

Ich würde gerne für einen Anwender die Namensbereichsbeschriftung in der 25% Ansicht (und etwas größere) unsichtbar machen, da diese stört. (Einstellungen-Namen). Wie geht das in Excel bzhw VBA?
Herzlichen Dank Herbert
04.05.2009 12:31:50
Thread-ID: 1072719
6 Beiträge
Anzeige
Erste Zelle eines Bereiches
Yusuf

Moin
gibt es eine Möglichkeit die Adresse der ersten (links oben) Zelle eines festegelegten Bereiches zu ermitteln?
z.B.:
Set RaBereich = Range("A2:O54")
hier waere es "A2"
Vielen Dank im voraus.
mfg
Yusuf
26.06.2009 11:15:20
Thread-ID: 1084529
6 Beiträge
Exitenz eines Namensbereiches prüfen ?
k

Hallo,
wie kann ich per VBA prüfen, ob ein Namensbereich vorhanden ist und ihn dann ggf. löschen ?
Löschen vermutlich so:
ActiveWorkbook.Names("KD").Delete
Aber wie kann ich in der aktiven Mape danach suchen - ob es ihn gibt zum löschen ?
so:
If ... Name("KD"). gi...
29.07.2009 10:58:40
Thread-ID: 1092172
9 Beiträge
Anzeige
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:32:35
Thread-ID: 1122384
3 Beiträge
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:33:29
Thread-ID: 1122390
2 Beiträge
aktive Zelle an Anfang des Printbereiches stellen
Karsten

Hallo,
Ich benötige einen VBA-Befehl der die aktive Zelle an den Anfang des Printbereiches (selbe Spalte), in meinem Falle D6, stellt.
Läßt sich so etwas per VBA erkennen?
https://www.herber.de/bbs/user/66651.xls
Danke für eure Hilfe.
Gruß
Karsten
17.12.2009 09:42:02
Thread-ID: 1124543
5 Beiträge
Zelle eines Bereiches in VBA zuordnen
Horst

Hallo
ich habe unter "Einfügen" "Namen" "Definieren" einen Bereich definiert und diesem einen Namen zugewiesen.
z.B.
Baujahr =Testblatt!$H$2:$H$31
Unter VBA möchte ich auf Baujahr quasi wie ein Array zugreifen.
z.B.
Test = Baujahr(1).Value (das wäre dann also der Inh...
20.01.2010 13:45:04
Thread-ID: 1131345
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige