Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro pro Zeile ausführen

Makro pro Zeile ausführen
Stefan
Hallo,
habe eine Excel-Datei mit Tabelle1 und Tabelle2.
in Tabelle 1 sind verschiedene Kundenangaben (Spalte A bis K)
Datum Garantieende (Spalte i)
Datum ab dem der Kunde angeschrieben werden soll (Spalte L)
in die Spalte M kommt kommt automatisch ein "x" wenn die Maschine 40Tage(oder weniger) vor Garantieende ist und in Spalte N noch kein "x" ist.
in Tabelle 2 ist ein Anschreiben an den kunden.
Hier das Problem:
brauche ein Makro, welches in tabelle 1 jede einzelne Zeile überprüft ob in der Spalte M ein "x" ist.
Wenn nein weiter mit nächster Zeile, wenn ja:
Kopieren verschiedener Zellen dieser Spalte (A,C,D,E,F,G,H,I) in Zellen der Tabelle 2, dann ausdrucken der Tabelle2, dann setzen von "x" in Spalte N dieser Zeile (Tabelle1) und dann weiter mit nächster zeile.
Nachdem alle zeilen durch sind MsgBox mit text " Alle maschinen überprüft"
und schließen der Datei.
Anbei eine Bsp.Tabelle
https://www.herber.de/bbs/user/77074.xls
Wäre super, wenn mir jemand helfen könnte.
Gruß
Stefan

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

Betreff
Benutzer
Anzeige
AW: Makro pro Zeile ausführen
18.10.2011 16:17:52
Rudi
Hallo,

Sub prcAnschreiben()
Dim LRow As Long, wksListe As Worksheet, wksAnschr As Worksheet
Set wksListe = Worksheets("Liste")
Set wksAnschr = Worksheets("Anschreiben")
With wksListe
For LRow = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(LRow, 13) = "x" Then
wksAnschr.Cells(4, 1) = .Cells(LRow, 4)
wksAnschr.Cells(15, 1) = .Cells(LRow, 5)
wksAnschr.Cells(17, 1) = .Cells(LRow, 6)
wksAnschr.Cells(19, 1) = .Cells(LRow, 7)
wksAnschr.Cells(19, 7) = Date
wksAnschr.Cells(26, 3) = .Cells(LRow, 3)
wksAnschr.Cells(27, 3) = .Cells(LRow, 1)
wksAnschr.Cells(28, 3) = .Cells(LRow, 8)
wksAnschr.Cells(29, 3) = .Cells(LRow, 9)
wksAnschr.PrintOut
.Cells(LRow, 14) = "x"
End If
Next LRow
End With
MsgBox " Alle Maschinen überprüft"
ThisWorkbook.Close True
End Sub

Gruß
Rudi
Anzeige
AW: Makro pro Zeile ausführen
21.10.2011 10:03:57
Stefan
super,
funktioniert so wie ich es mir vorgestellt habe.
Danke !!!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige