Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Zeilen mit einem Makro automa. kopieren

bestimmte Zeilen mit einem Makro automa. kopieren
09.02.2004 15:10:46
Jörg
Hallo!
Ich möchte gerne ein Makro schreiben, mit dem ich bestimmte Zeilen einer Tabelle in ein anderes Tabellenblatt kopieren kann. Wenn z.B. in einer Zeile in Spalte A die Zahl 100 steht, möchte ich für die Zahl 100 ein Makro schreiben das alle Zeilen in denen in Spalte A eine 100 steht in ein bereits erstelltes Tabellenblatt kopiert werden. Ich habe schon alles was mir einfiel ausprobiert, leider komme ich auf keine Lösung. Wenn mir jemand von euch helfen könnte, wäre das echt super.
Gruß
Jörg

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zeilen mit einem Makro automa. kopieren
09.02.2004 15:13:13
Daniel
Hi!
Schau mal etwas weiter unten nach - mich hat heute schon einmal das gleiche Problem geplagt!
Gruß Daniel
P.S.: Hier "mein" Quelltext:

Sub Übertragen()
Application.ScreenUpdating = False
Dim rngFind As Range
Dim strFind As String
Dim iRow As Integer
Worksheets("Extrakte2").Activate
Set rngFind = Cells.Find(what:=Range("F1").Value, after:=ActiveCell, LookIn:=xlValues, lookat:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rngFind Is Nothing Then
firstaddress = rngFind.Address
Do
Set rngFind = Cells.FindNext(rngFind)
If rngFind Is Nothing Then
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
rngFind.Select
If Not IsEmpty(rngFind.Offset(0, 2)) Then
rngFind.Select
With Worksheets("Bericht")
ActiveCell.Offset(0, 2).Copy Worksheets("Bericht").[E65536].End(xlUp).Offset(1, 0)
ActiveCell.Offset(0, 3).Copy Worksheets("Bericht").[G65536].End(xlUp).Offset(1, 0)
ActiveCell.Offset(0, 4).Copy Worksheets("Bericht").[F65536].End(xlUp).Offset(1, 0)
End With
End If
Loop While Not rngFind Is Nothing And rngFind.Address <> firstaddress
End If
End Sub

Anzeige
AW: bestimmte Zeilen mit einem Makro automa. kopieren
09.02.2004 15:45:24
Jörg
Hi, Daniel!
Danke! Leider versteht ich das nicht wiklich. Wo z.B. steht da die 100? Müsste die dann in Zelle F1 stehen? Wo wird das hinkopiert etc. Fragen über Fragen...
Wäre nett, wenn du mir das ein bisschen erklären könntest.
Gruß
Jörg
AW: bestimmte Zeilen mit einem Makro automa. kopieren
09.02.2004 16:09:21
Daniel
probiers mal so (kopiert dir nach Komplettierung alle 100-er Einträge in die erste freie A-Spalte:

Sub Übertragen()
Application.ScreenUpdating = False
Dim rngFind As Range
Dim strFind As String
Dim iRow As Integer
Worksheets("DeinERSTESBlatt").Activate
Set rngFind = Cells.Find(what:=Range("100").Value, after:=ActiveCell, LookIn:=xlValues, lookat:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rngFind Is Nothing Then
firstaddress = rngFind.Address
Do
Set rngFind = Cells.FindNext(rngFind)
If rngFind Is Nothing Then
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
rngFind.Select
If Not IsEmpty(rngFind.Offset(0, 0)) Then
rngFind.Select
With Worksheets("Blattwohinkopiertwerdensoll")
ActiveCell.Offset(0, 0).Copy Worksheets("Bericht").[E65536].End(xlUp).Offset(1, 0)
End With
End If
Loop While Not rngFind Is Nothing And rngFind.Address <> firstaddress
End If
End Sub

Anzeige
AW: bestimmte Zeilen mit einem Makro automa. kopieren
09.02.2004 16:23:32
Jörg
So klappt es fast so, wie ich mir das vorstelle. Leider wird aber nicht die ganze Zeile kopiert. Es wird nur der Wett 100 in Spalte E kopiert. Wie kann man denn die ganze Zeile kopieren und das ganze z.B. in Zeile A60 des anderen Blattes kopieren. Hast du dafür vielleicht noch eine Idee?
Gruß
Jörg

308 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 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
7
4
5
2
2
7
3
2
1
2
9
5
3
2
2
6
4
2
3
5
6
6
6
3
2