Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife in Spalte durchlaufen, Kopieren und druck

Schleife in Spalte durchlaufen, Kopieren und druck
16.10.2014 00:30:38
Ron
Hallo Ihr Excelfans,
ich brauche heute wieder mal Hilfe.
Folgendes Ziel verfolge ich:
Ich möchte in Tabelle 1 ab Zelle F5 die Spalte F bis Ende der genutzten Zeilen durchsuchen. Wenn ein Eintrag vorhanden ist, soll der Wert aus F in Tabelle 2 Ao3 kopiert werden, danach aus Tabelle 1 aus der Spalte E der gefundenen Zeile in Tabelle 2 AN3 kopiert werden und dann die Tabelle 2 ausgedruckt werden. Wie kann ich am Anfang einen Druckdialog mit einbauen, der die Wahl eines entsprechenden Druckers für die gesamte Schleife ermöglicht?
Kann jemand helfen?
Liebe Grüße
Ron

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife in Spalte durchlaufen, Kopieren und druck
16.10.2014 06:36:51
Martin
Hallo Ron,
ungestestet, aber theoretisch sollte es so klappen:
Sub Beispiel()
Dim iRow As Long, iLastRow As Long
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Tabelle1").Columns(6)
iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For iRow = 5 To iLastRow
If .Cells(iRow, 6).Value  Empty Then
Sheets("Tabelle2").Range("AO3") = .Cells(iRow, 6).Value
Sheets("Tabelle2").Range("AN3") = .Cells(iRow, 7).Value
Sheets("Tabelle2").PrintOut
End If
Next
End With
End Sub
Viele Grüße
Martin

...doch einen kleinen Fehler gefunden
16.10.2014 06:41:18
Martin
Hallo Ron,
hatte irgendwie überlesen, habe versehentlich die Spalte danach (G) statt der Spalte davor (E) übertragen. Also hier noch einmal (hoffentlich) richtig:
Sub Beispiel()
Dim iRow As Long, iLastRow As Long
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Tabelle1").Columns(6)
iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For iRow = 5 To iLastRow
If .Cells(iRow, 6).Value  Empty Then
Sheets("Tabelle2").Range("AO3") = .Cells(iRow, 6).Value
Sheets("Tabelle2").Range("AN3") = .Cells(iRow, 5).Value
Sheets("Tabelle2").PrintOut
End If
Next
End With
End Sub
Viele Grüße
Martin

Anzeige
AW: ...doch einen kleinen Fehler gefunden
16.10.2014 12:14:54
Ron
Hallo Martin,
erst einmal vielen Dank für die schnelle Meldung. Habe es einmal getestet, läuft noch nicht so richtig. Trotz Eintrag in F5 und F7 springt das Makro gleich an die End If Anforderung. Kann mir keinen Reim drauf machen. In der F Spalte sind jeweils Zahlenwerte eingetragen...
Er prüft mit:
For iRow = 5 To iLastRow
If .Cells(iRow, 6).Value Empty Then
und springt dann gleich zum Ende der IF Anweisung.
Hast Du noch eine Idee?
Grüße
Ron

AW: ...doch einen kleinen Fehler gefunden
16.10.2014 12:21:54
Martin
Hallo Ron,
das wahr wohl noch zu früh am morgen. Ich frage mich gerade, warum ich Columns(6) geschrieben habe.
Also ein neuer Versuch: 
Sub Beispiel()
Dim iRow As Long, iLastRow As Long
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Tabelle1")
iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For iRow = 5 To iLastRow
If .Cells(iRow, 6).Value  Empty Then
Sheets("Tabelle2").Range("AO3") = .Cells(iRow, 6).Value
Sheets("Tabelle2").Range("AN3") = .Cells(iRow, 5).Value
Sheets("Tabelle2").PrintOut
End If
Next
End With
End Su
Viele Grüße
Martin

Anzeige
AW: ...doch einen kleinen Fehler gefunden
16.10.2014 12:47:33
Ron
Hallo Martin,
das mit früh und spät kenne ich auch nur zu gut:). Die Columns Anweisung fand ich zwar logisch - war aber der Teufelsfuß. Vielen Dank für Deine Hilfe, passt jetzt alles!
Viele Grüße
Ron

301 Forumthreads zu ähnlichen Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Per Makro Spalten und Formeln einfügen
Kai

Hallo,
ich möchte per Makro zwischen die Zeile M und N 2 Spalten einschieben und dann in ab Zeile 10 in beide Spalten eine Formel einfügen und diese noch unten ziehen.
Neue Spalte N = wenn(L10 ""; L10+100;"")
Neue Spalte O = wenn(M10 ""; M10+100;"")
die ganze Formel sollt...
21.10.2009 14:02:28
Thread-ID: 1111061
3 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Anzeige
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum
Peter
Guten Tag
Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.
Ich habe etwas Probleme mit der Syntax.
Wer hilft mir?
Vielen Dank, Peter
With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,...
05.01.2010 10:58:08
Thread-ID: 1127228
7 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Userform kopieren und als als Grafik einfügen
Pepi

Hallo zusammen
Ich möchte ein Userform kopieren und als Grafik wieder einfügen, damit ersichtlich ist mit welchen Basiswerten eine Tabelle erstellt wurde (Basiswerte werden über Userform eingegeben)
Ctrl-Alt-Printscreen oder ein Bildschirmprogramm (Snagid) geht nicht, da dies automatisc...
22.02.2010 13:20:05
Thread-ID: 1140312
9 Beiträge
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 Beiträge
Anzeige

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
1
8
2
2
14
11
6
10
8
7
9
11
2
5
4
2
3
4
2
1
2
4
5
6
4