Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Zeile ausschneiden wenn

Makro: Zeile ausschneiden wenn
cfrei
Hallo,
ich möchte bitte mit einem Makro folgendes erreichen.
Ich habe zwei Tabellen KostenA und KostenB.
Das Makro soll in der Tabelle KostenA in der Spalte C nach den Werten "X" suchen und alle Zeilen in der sich das "X" befindet komplett ausschneiden. Diese ausgeschnittene Zeilen sollen in der Tabelle KostenB eingefügt werden. Da in der Tabelle KostenB, fortlaufend neue Zeilen eingefügt werden, sollte das Makro zunächste nach der nächsten freien Zeile suchen und dann erst einfügen.
Für Eure Hilfe bedanke ich mich im Voraus.
Viele Grüße
Claus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro: Zeile ausschneiden wenn
25.02.2010 16:52:19
ing.grohn
Hallo Claus,
vielleicht geht folgendes:
Sub ZeilenUebertragen()
' Makro am 25.02.2010 von Ing.Grohn aufgezeichnet
Dim Zeile As Long
Dim Anzahl1 As Long
Dim Anzahl2 As Long
Dim sZeile As String
Sheets("Tabelle1").Activate
I = 1
Anzahl1 = ActiveSheet.UsedRange.Rows.Count
For Zeile = 1 To Anzahl1
Sheets("Tabelle1").Activate
If Cells(Zeile, 3).Value = "x" Then     ' "3"  wg. Spalte C
sZeile = LTrim(Str(Zeile))
Rows(sZeile & ":" & sZeile).Select
Selection.Copy
Sheets("Tabelle2").Select
Anzahl2 = ActiveSheet.UsedRange.Rows.Count
Range("A" + LTrim(Str(Anzahl2 + 1))).Select
ActiveSheet.Paste
End If
Next Zeile
End Sub
MfG
Albrecht
Anzeige
AW: Makro: Zeile ausschneiden wenn
25.02.2010 17:14:37
cfrei
Funktioniert einwandfrei - VIELEN DANK für die schnelle Antwort!
Ich habe copy mit cut ersetzt damit die Zeilen ausgeschnitten werden.
Wie könnte ich zusätzlich die ausgeschnittenen Zeilen gleich löschen damit ich in der kompletten Tabelle keine leeren Zeilen haben muss? VIELEN DANK IM VORAUS.
Viele Grüße
Claus Freiwald
AW: Makro: Zeile ausschneiden wenn
25.02.2010 17:31:43
ing.grohn
Hallo Claus,
vielleicht hiermit:
Selection.EntireRow.Delete
nach selection.copy
MfG
Albrecht

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige