Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

definierte Zellen mit Daten füllen und drucken

definierte Zellen mit Daten füllen und drucken
Christian
Hallo,
ich hab hier ein kleines Problem, und zwar hab ich eine Excel Vorlage, in der fortlaufende Zahlen aus einer anderen Tabelle eingefügt werden sollen. Die Zellen in der Vorlage sind E1, E17, E34, E51.
Die Werte sollen aus einer Tabelle eingefügt, dann ausgedruckt und anschließend die nächsten 4 Werte eingetragen werden und so weiter.
Mit der Hand einfügen ist mir zu aufwändig, da mich ca. 4000 Werte erwarten.
Habt ihr ne Lösung für mein Problemchen
Danke und Gruß Chris

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

Betreff
Benutzer
Anzeige
AW: definierte Zellen mit Daten füllen und drucken
23.08.2012 07:27:26
Josef

Hallo Chris,
mal angenommen, die Zahlen stehen in Tabelle1 in A1:Dx und die Vorlage heißt "Vorlage".
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub fillAndPrint()
  Dim strRange As String
  Dim lngRow As Long, lngIndex
  
  strRange = "E1;E17;E34;E51" 'die Zielzellen
  
  With Sheets("Tabelle1") 'Tabelle mit den Zahlen in A1:Dx
    For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
      For lngIndex = 0 To UBound(Split(strRange, ";"))
        Sheets("Vorlage").Range(Split(strRange, ";")(lngIndex)) = .Cells(lngRow, lngIndex + 1)
        Sheets("Vorlage").PrintOut
        Sleep 250
      Next
    Next
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: definierte Zellen mit Daten füllen und drucken
28.08.2012 13:39:05
Christian
Hallo Sepp,
erstmal Danke für die schnelle Antwort, soweit konnte ich das Makro einfügen, nur ich habe in der Tabelle1 die Werte in der Spalte A (zum Beispiel von A1:A4000) untereinander, wie kann ich das ändern?
Nochmal sorry dass jetzt einige Zeit vergangen ist, konnte nicht eher testen.
PS: hört das Makro dann auf, sobald am Ende der Spalte A keine Werte mehr sind? oder wie verhält sich das?
Gruß Chris

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige