Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: bestimmte zellen kopieren und bestimmt einfügen

bestimmte zellen kopieren und bestimmt einfügen
04.04.2007 18:50:00
mehmet
hallo forum,
ich habe eine datei mit 2 tabellen, tab1 und tab2.
die daten von tab2 werden von einem programm eingelesen. mal sind die daten von c2:i15 mal c2:i10. auf jeden fall beginnent mit c3 und endend mit spalte i (abruchbedingung zelle b30 steht der string "schluss").
die werte dieses bereichs (nicht zeilen, sondern c2:i?) sollen nun kopiert werden.
dies kopierten daten von tab2 sollen nun in tab1 eingefügt werden.
tab1 ist so aufgebaut: in zelle b12 steht "text1". in zelle b13 steht "text 2".
die kopierte werte von tab2 sollen nun zwischen text1 und text2 eingefügt werden. text2 soll runterrücken.
ich habe die musterdatei (ohne makro) hochgelden.
https://www.herber.de/bbs/user/41588.xls
dank und gruss
mehmet

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte zellen kopieren und bestimmt einfüge
04.04.2007 20:25:00
Worti
Hallo mehmet,
versuch es mal hiermit:


Sub KopierenBereich()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets("Tab1")
    Set ws2 = Worksheets("Tab2")
    ws1.Rows("13:" & ws2.Range("C2").CurrentRegion.Rows.Count + 12).Insert
    ws2.Range("C2:I" & ws2.Range("C2").CurrentRegion.Rows.Count + 1).Copy _
    Destination:=ws1.Range("C13")
    Set ws1 = Nothing
    Set ws2 = Nothing
End Sub


Gruß Worti
Anzeige
AW: bestimmte zellen kopieren und bestimmt einfüge
04.04.2007 21:25:00
mehmet
hallo worti,
es funktioniert
super, dank dir
kurze frage noch bitte
wie kann man mittels makro die zellen löschen, die zwischen text1 und text2 in tab1 stehen löschen
oder muss ich ein neuen betrag verfassen
nochmal herzlichen dank
gruss
mehmet
AW: bestimmte zellen kopieren und bestimmt einfüge
05.04.2007 09:54:00
Worti
Hallo mehmet,
das geht so: 

Sub Del()
Dim ws1 As Worksheet
Dim c As Range
Set ws1 = Worksheets("Tab1")
Set c = ws1.Range("B13:B65536").Find(what:="Text2")
If Not (c Is Nothing) Then
If c.Row > 13 Then
ws1.Rows("13:" & c.Row - 1).Delete
End If
End If
Set ws1 = Nothing
End Sub

Anzeige
AW: bestimmte zellen kopieren und bestimmt einfüge
05.04.2007 11:04:20
mehmet
hallo worti
es funktioniert und ist jetzt
perfect, dank dir
angenehmen tag wünsch ich dir
herzliche grüsse
mehmet

300 Forumthreads zu ähnlichen Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Anzeige
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Anzeige

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
8
3
2
4
1
1
3
1
2
8
2
3
15
22
5
7
6
8
2
1
3
1
4
2
5