Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Markierung ganze Zeile in neues Sheet kopieren

Bei Markierung ganze Zeile in neues Sheet kopieren
19.11.2003 19:01:17
Josef
Guten Abend!

Ich habe eine Menge Datensätze, ab der Spalte B.
Wenn ich jetzt z. B. in der Zelle A4 und A7 ein Zeichen setze, z.B. "a", dann sollen die Zeilen 4 und 7 in ein neues Sheet kopiert werden. Gibt es hier bitte vielleicht ein VBA Lösung?
Für eine Hilfe wäre ich dankbar.

Danke

Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Bei Markierung ganze Zeile in neues Sheet kopieren
19.11.2003 19:07:35
PeterW
Hallo Josef,

wie heißt das neue Sheet, oder soll das erst angelegt werden, ggf unter welchem Namen? Wenn die Datensätze kopiert sind soll dann das a entfernt werden? Soll das a mit kopiert werden? Gib bitte etwas genauere Angaben - das Problem selbst ist recht einfach zu lösen, wenn man die Rahmenbedingungen kennt. :-)

Gruß
Peter
AW: Bei Markierung ganze Zeile in neues Sheet kopieren
19.11.2003 19:22:50
Josef
Hallo Peter!

Danke für Deine Antwort.

Der Name des Sheets wäre mir egal. Kann ruhig Tabelle2 lauten.
Das a muß nicht entfernt werden und kann ruhig mitkopiert werden.

Josef
AW: Bei Markierung ganze Zeile in neues Sheet kopieren
19.11.2003 19:47:11
PeterW
Hallo Josef,

so ganz egal ist der Name nicht; was soll passieren, wenn der Code erneut in der Mappe laufen soll? Soll die Übertragung dann wieder in ein neues Blatt erfolgen oder der schon kopierte Bereich ergänzt oder überschrieben werden? Mal als Ansatz ein Code für ein einmaliges Kopieren:

Sub Uebertragen()
Dim wksAlt As Worksheet
Dim lgZeile As Long
Dim lgZiel As Long
Set wksAlt = ActiveSheet
Worksheets.Add after:=Sheets(Worksheets.Count)
If IsEmpty(ActiveSheet.Range("B1")) Then
lgZiel = 1
Else
lgZiel = ActiveSheet.Range("B65536").End(xlUp).Row + 1
End If
For lgZeile = 2 To wksAlt.Range("B65536").End(xlUp).Row
If Not IsEmpty(wksAlt.Cells(lgZeile, 1)) Then
wksAlt.Rows(lgZeile).Copy ActiveSheet.Cells(lgZiel, 1)
lgZiel = lgZiel + 1
End If
Next
End Sub

Gruß
Peter
Anzeige
AW: Bei Markierung ganze Zeile in neues Sheet kopieren
19.11.2003 20:09:26
Josef
Hallo Peter!

Danke für Deine Hilfe.

Natürlich hast Du in diesem Fall recht.Das hatte ich übersehen.

Josef

304 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 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
VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Anzeige
Zahlenfolge suchen und in neue Tabelle kopieren
Günter

Hallo,
ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
04.12.2008 00:39:00
Thread-ID: 1030003
4 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Datensätze suchen und löschen / Kopieren
Holger

Hi,
ich möchte gerne folgendes per Makro erledigen:
Ich habe eine Exceltabelle "IMPORT", in der gibt es ziemlich viele Datensätze (geht von A bis M und runter ab Zeile10 bis je nachdem bis 500 oder 1000)
In der Tabelle gibt es Datensätze, die würde ich gerne automatisch (oder bess...
31.01.2009 10:51:00
Thread-ID: 1045602
6 Beiträge
Doppelte Inhalte suchen und kopieren
Joachim

HI,
ich habe eine Tabelle mit verschiedenen Einträgen in Spalte B. Diese habe ich seither farblich markiert (Spalte B) :
Dim lngRow As Long
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
Dim I As Integer, xx As Integer
Dim szCompare As String
For I = 5 To lngRow
szCom...
08.02.2009 13:07:42
Thread-ID: 1048280
8 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
8
7
4
12
5
3
7
4
5
7
8
2
1
4
3
12
2
2
3
1
1
4
2
2
4