Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren von Datensätzen

Forumthread: Kopieren von Datensätzen

Kopieren von Datensätzen
18.12.2002 10:39:08
Christine
Hallo,
habe folgendes Problem ich habe eine Tabelle vor mir liegen mit unterschiedlichen Daten (Zahlen, Texte usw.)in der Spalte C wovon nur ein drittel benötigt wird. Ich möchte jetzt durch ein VBA erreichen, dass die Spalte C nach ganzen Zahlen durchsucht wird um anschliessend den kompletten Datensatz auf das zweite Tabellenblatt zu kopieren.

Gruß Christine

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Kopieren von Datensätzen
18.12.2002 11:22:28
Chris
Application.ScreenUpdating = False
For i = 1 To Sheets(1).Range("C65536").End(xlUp).Row
If IsNumeric(Sheets(1).Cells(i, 3)) = True Then
Sheets(1).Rows(i & ":" & i).Copy
Sheets(2).Select
For ii = 1 To 65536
If Sheets(2).Cells(ii, 3) = "" Then Exit For
Next ii
Sheets(2).Cells(ii, 1).Select
ActiveSheet.Paste
Sheets(1).Select
End If
Next i
Range("A1").Select
Application.ScreenUpdating = True


Hallo Christine

Obiges Makro prüft, ob der Wert in Spalte C (Blatt 1) nummerisch ist und kopiert gegebenenfalls die gesamte Zeile nach Blatt 2.

Gruss
Chris

Anzeige
Funktioniert
18.12.2002 13:24:28
Christine
Hallo Chris,

wollte mich kurz bedanken für dein Makro.
Klappt wunderbar.

Gruß
Christine

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige