Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte kopieren

Zelleninhalte kopieren
01.11.2005 14:35:19
Bernie42
Hallo,
ich habe eine Tabelle, in der verschiedene Buchungen eingefügt werden.
Nun möchte ich das die Einträge die in der Spalte Sonstiges eingetragen werden, in ein anderes Arbeitsblatt automatisch übertragen wird.
Es soll aber nicht die komplette Zeile, sondern nur bestimmte Zellen übernommen werden.
Das wäre in meiner Tabelle folgende Zellen A6, B6, I6
wobei aber berücksichtig werden muß, das sich ja bei weiteren Einträge die Zeilen-Nr. ändert.
Hab hier meine Tabelle hochgeladen.
https://www.herber.de/bbs/user/28013.xls
Gruß
Bernie42

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte kopieren
01.11.2005 16:06:03
Peter Feustel
Hallo Bernie42,
füge das beigefügte Makro in das Tabellenblatt Januar ein


Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim WkSh_Quelle  As Worksheet
Dim WkSh_Ziel    As Worksheet
Dim lLetzte      As Long
   If Target.Count > 1 Then Exit Sub
   
   If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
   
   Set WkSh_Quelle = Worksheets("Januar")
   Set WkSh_Ziel = Worksheets("Kopie")
   
   lLetzte = IIf(WkSh_Ziel.Range("C65536") <> "", 65536, _
                 WkSh_Ziel.Range("C65536").End(xlUp).Row) + 1
                 
   WkSh_Ziel.Range("A" & lLetzte).Value = WkSh_Quelle.Range("A" & Target.Row).Value
   WkSh_Ziel.Range("B" & lLetzte).Value = WkSh_Quelle.Range("B" & Target.Row).Value
   WkSh_Ziel.Range("C" & lLetzte).Value = WkSh_Quelle.Range("I" & Target.Row).Value
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Du musst noch die Spalten im Empfangs-Tabellenblatt anpassen, falls dir A, B, C nicht gefallen.
Viele Grüße Peter
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Zelleninhalte kopieren
01.11.2005 17:28:14
Bernie42
Hallo Peter,
irgendwie funktioniert es bei mir nicht so richtig.
Beim ersten Durchlauf kopiert er mir die Zellen,
füge ich aber noch andere hinzu, passiert nicht´s mehr.
Hab auch schon mit speichern, schließen und wieder öffnen versucht, leider ohne Erfolg.
Hab auch vergessen dir zu sagen, das die Kopierfunktion, nur ausgeführt werden soll, wenn die Zelle z.B. I6 ausgefüllt wird.
Ist das überhaupt machbar ?
Gruß
Bernie42

300 Forumthreads zu ähnlichen Themen

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
Anzeige
Zellen anhand Inhalt auswählen und kopieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Aus einer Datei mit ca. 30.000 Zeilen und 38 Spalten sollen einige Bereiche ausgewählt werden und in unterschiedliche Blätter einer zweiten Arbeitsmappe einsortiert werden.
Konkret: Per Makro soll in Spalte C der Bereich gesucht werden der z.B...
08.11.2009 21:04:13
Thread-ID: 1115418
13 Beiträge
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 Beiträge
Anzeige
Zelleninhalte umkopieren
Hugo

Hallo zusammen
Möchte Daten aus einer Zelle in die darunterliegenden Zeilen/Zellen kopieren
DH:
In Zelle A1 steht, jeweils mit Zeilenumbruch:
Hans
Apfel
Gurke
Nun soll per VBA Hans in A2, Apfel in A3 und Gurke in A4 kopiert werden
Besten Dank für eure Hilfe
G...
28.09.2010 20:20:49
Thread-ID: 1179799
8 Beiträge
Zelleninhalt kopieren und einfügen
Ingo

Hallo,
ich habe eine Excel-Tabelle, in der in der zweiten Spalte Daten stehen. Zwischen den Daten sind die Zellen ohne Inhalt. Ich möchte nun, dass die leeren Zellen mit den darüberstehenden Daten gefüllt werden.
Hier der Code, den ich verfasst habe und der nichts ausfüllt...
Sub Ze...
16.05.2011 06:40:15
Thread-ID: 1214626
7 Beiträge
Zelleninhalte kopieren
Helmut

Hallo,ich möchte in einer Zelle (Bsp. A1) einen Wert eingeben, der dann innherlab des Sheets(Bsp. A10) an eine andere Stelle kopiert werden soll. Nun wird in A1 wieder ein Wert eingegeben. Dieser soll nun wieder an A10 weggeschrieben werden, allerdings addiert zum ersten Wert. Zu guter letzt so...
06.06.2002 11:27:43
Thread-ID: 126429
2 Beiträge
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 Beiträge
Zelleninhalte kopieren horizontal -> vertikal
Stefan


Hallo zusammen
Ich möchte den Inhalt von drei horizontalen Zellen in drei feste vertikale Zellen übertragen, und zwar folgendermassen:
Wenn ich die Zelle A1 angewählt habe, soll der Inhalt von A1/B1/C1 in G2/G3/G4 übertragen werden.
Wenn ich die Zell B3 angewählt habe, soll de...
09.04.2013 16:28:44
Thread-ID: 1307992
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
20
12
2
5
7
6
1
1
3
2
2
9
1
6
8
4
1
4
4
3
9
2
9
2