definierte Zellen mit Daten füllen und drucken

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

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 »

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

Beliebteste Forumthreads (12 Monate)

definierte Zellen mit Daten füllen und drucken

Forumthread: definierte Zellen mit Daten füllen und drucken

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

definierte Zellen mit Daten füllen und drucken

Forumthread: definierte Zellen mit Daten füllen und drucken

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread