Datum

Titel

24.04.2024 06:38:45

Kumulierte Daten für Intervalllaufeinheiten

24.04.2024 04:37:43

Mit Word erstellte PDF als Anhang an E-Mail anhängen

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

23.04.2024 22:08:10

Auflisten in Spalte VBA

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

700to704

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Schleife für Zellprüfung und ausschneiden

Forumthread: Schleife für Zellprüfung und ausschneiden
4 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

01.12.2005 19:55:37

Sebastian

Hallo Forum,
brauche für folgenden Sachverhalt Eure Hilfe.
Das Makro sollte prüfen, ob in der Zelle A2 der Wert EUR steht.
Wenn das so ist, soll der Bereich A2:E2 ausgeschnitten werden und an der Position F1 eingefügt werden. Dann soll er in die nächste Zelle A3 gehen und prüfen, ob da auch EUR steht. Wenn ja, soll das Makro angehalten werden. Wenn nein, in der Zelle A4 prüfen und wenn ja, dann den Bereich A4:E4 wieder ausschneiden und an Position F3 einfügen oder wieder anhalten.
Danke schon mal für die Antwort
Sebastian

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife für Zellprüfung und ausschneiden

01.12.2005 21:38:52

Hajo_SB
AW: Schleife für Zellprüfung und ausschneiden

01.12.2005 22:26:33

Sebastian
AW: Schleife für Zellprüfung und ausschneiden

01.12.2005 23:01:32

Hajo_SB
Danke !!! hat funktioniert

02.12.2005 17:11:17

Sebastian

AW: Schleife für Zellprüfung und ausschneiden

01.12.2005 21:38:52

Hajo_SB

Hallo Sebastian,
meinst Du so was? Habe ich nicht selber ausprobiert.


Sub Eur_pruefen()
Dim n As Integer
If Cells(2,1).Value = "Eur" Then
Range(Cells(2,1), Cells(2,5)).Copy
Range(Cells(1,6), Cells(1,10).Paste
End If
n = 2
Do Until Cells(n,1).Value = "Eur"
Range(Cells(n+1,1), Cells(n+1,5)).Copy
Range(Cells(n,6), Cells(n,10)).Paste
n = n + 1
Loop
End Sub

Gruß
Hajo

AW: Schleife für Zellprüfung und ausschneiden

01.12.2005 22:26:33

Sebastian

Hallo,
das Makro hat leider nicht funktioniert.
Habe mal die Datei beigefügt.
PS: Habe schon mal die fehlende Klammer und aus Copy Cut gemacht.
https://www.herber.de/bbs/user/28901.xls
Danke schon mal für die Antwort
Sebastian

AW: Schleife für Zellprüfung und ausschneiden

01.12.2005 23:01:32

Hajo_SB

Hi Sebastian,
so genau weiß ich nicht was Du genau machen willst, vielleicht erfüllt der nachfolgende Code Deine Zwecke (er funktioniert bei mir):


Sub Eur_pruefen()
Dim n As Integer
n = 1
Do Until Cells(n, 1).Value = ""
If Cells(n, 1).Value = "EUR" Then
Range(Cells(n, 1), Cells(n, 5)).Copy
Range(Cells(n - 1, 6), Cells(n - 1, 10)).Select
ActiveSheet.Paste
End If
n = n + 1
Loop
End Sub

Gruß Hajo

Danke !!! hat funktioniert

02.12.2005 17:11:17

Sebastian

Hallo Hajo,
danke für das Makro, es hat wunderbar funktioniert!!!
Sebastian