Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Christoph "Zusammenfassen"

Christoph "Zusammenfassen"
tobi
hallo christoph
zu deiner Frage mit dem Druckbereich; die Grösse in den oberen Feldern ändert sich nicht außer bei Beschläge/Zukaufteile, dort habe ich es benutzefenierter Formatierung gelöst.
das was du mir bisher geschickt hast klappt alles super.
mir ist aber noch etwas eingefallen, bei Beschläge1 sollen noch die Stückzahl mit rein. und dann natürlich auch per VBA in den Druckbereich übernommen werden.
Beschläge1
 DEFGHIJ
6BeschlägeStückBeschreibung: Befestigungsmat.StückBeschreibung:
731BD Bodenträger 5mm, Häfele Art.Nr.:785.976.12 5MONW01 Montagewinkel, 100*40
8  0   0
 
Drucken
 ABCDEFGHIJ
118Pos.          
119NummerStammnummerBezeichnungStück
120131BDBodenträger 5mm, Häfele Art.Nr.:785.976.12 
121220 
 
   Ich habe mir den VBA Text ausgedruckt und weiß nicht was ich daran ändern soll. Wäre nett wenn du mir noch einmal helfen könntest. gruss tobi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Christoph "Zusammenfassen"
05.04.2004 19:11:19
Christoph
Hi Tobi,
ich möchte dich doch bitten, im selben Beitrag zu bleiben.
Denk auch mal dran, das alle Beiträge archiviert werden zwecks Recherche.
Und wenn du dann ein und das selbe Thema auf 3 verschiedenen Beiträge verzettelt wiederfindest,
macht die Recherche bald keinen Spaß mehr.
zu deine Frage:
füge in das Makro noch die folgende Zeile in die "If-Then-Anweisung" ein:
ws2.Cells(Zeile, 9).Value = ws1.Cells(i, j + 1).Value
du willst ja in die 9.Spalte (=SpalteI) der Tabelle "Drucken" den Wert aus Spalte E, I, etc.
aus Tabelle "Beschläge1" eintragen (und E entspricht bei dem Startwert j = 4 also "j+1", weil E die 5.Spalte)
Alles klar?
Gruß
Christoph
Für's Archiv:
Sub nachDrucken() Dim ws1 As Worksheet, ws2 As Worksheet Dim j As Integer, i As Integer, Zeile As Integer Set ws1 = Sheets("Beschläge1") Set ws2 = Sheets("Drucken") Zeile = 130 'oder nach deinem neuesten Ausdruck: Zeile = 119 For j = 4 To 16 Step 4 For i = 7 To 31 If ws1.Cells(i, j) <> "" Then Zeile = Zeile + 1 ws2.Cells(Zeile, 2).Value = ws1.Cells(i, j).Value ws2.Cells(Zeile, 3).Value = ws1.Cells(i, j + 2).Value ws2.Cells(Zeile, 9).Value = ws1.Cells(i, j + 1).Value End If Next Next End Sub
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige