Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatische Kopierfunktion gesucht

automatische Kopierfunktion gesucht
16.01.2005 12:31:22
Adrian
Hallo,
suche eine Makro, welches mir wie unten dargestellt,
automatisch bei Eintrag, Berechnung usw. ohne Befehlsschaltfläche
meine Daten 2 Spalten weiterkopiert.
Danke
Adrian
Tabelle1
 ABCDEFGHIJKLMN
3              
4 Hier ein kleiner Ausschnitt aus der Datentabelle, welche nun automatisch   
5 2 Spalten weiter kopiert werden soll. Dabei wäre zu beachten, das nur   
6 die Daten kopiert werden(also keine Formeln, Rahmen usw.).  
7              
8              
9              
101ZF65984704.5.0254878KI/154R  1ZF65984704.5.0254878KI/154R
111FG5848504.5.0254879HAT/1458R  1FG5848504.5.0254879HAT/1458R
12 HZ455587404.5.0254880LK/598O   HZ455587404.5.0254880LK/598O
131RT2561404.5.0254881RD/563R  1RT2561404.5.0254881RD/563R
14 PO99858904.5.0254882TF/558O   PO99858904.5.0254882TF/558O
15              
16              
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Kopierfunktion gesucht
HerbertH
hallo Adrian,
kopiere dieses Makro in dasTabellenmodul:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber1 As Range, ber2 As Range
Set ber1 = [a10:f14]
Set ber2 = [i10:n14]
If Not Intersect(Target, [a10:f14]) Is Nothing Then
ber2.Value = ber1.Value
End If
End Sub

     gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige