Zahlplan erstellen

[prymano]

Hallo,
ich möchte so etwas wie ein Zahl Plan/ Rechnungsbuch erstellen, Der sollte so aussehen:
Tabelle 1:  
Datum, Banksaldo, RE-Betr., Lieferant, RE Dat, RE-Nr., Zahldatum, vorr. Einnahmen, weitere Spalten für Bestellungen usw.
Die Zeilen werden untereinander ausgefüllt.
Tabelle 2 sollte dann automatisch die Zeilen untereinander ausgefüllt werden:
RE-Betr., Lieferant, RE Dat., RE.-Nr., Zahldatum

Ich habe da schon dran rumgebastelt, aber es hat nicht funktioniert.
Vielleicht hat jemand eine brauchbare Idee

[coemm]

Ich habe da schon dran rumgebastelt, aber es hat nicht funktioniert.
Vielleicht hat jemand eine brauchbare Idee

Hallo Prymano,

dann zeig uns doch schon Mal, was du so gebastelt hast.
Damit können wir dir dann auch besser helfen.
Das Gebastelte kannst du ja, wie hier beschrieben, hochladen.

[prymano]

Code:

Sub Zahlplan()
   Dim Quelltab As Worksheet
   Dim Zieltab As Worksheet
   Dim Zelle As Range
   Dim Zaehler As Long
   Zaehler = 2
   Bereich = "D3:G3"
   Set Quelltab = ActiveWorkbook.Worksheets("Zahlplan")
   Set Zieltab = ActiveWorkbook.Worksheets("LieferantenRechnungen")
   For Each Zelle In Quelltab.Range("A2:D2")
      Zieltab.Cells(Zaehler, 2) = Zelle
      Zaehler = Zaehler + 1
   Next Zelle
End Sub

[prymano]

Code:

Sub Zahlplan()
   Dim Quelltab As Worksheet
   Dim Zieltab As Worksheet
   Dim Zelle As Range
   Dim Zaehler As Long
   Zaehler = 2
   Bereich = "D3:G3"
   Set Quelltab = ActiveWorkbook.Worksheets("Zahlplan")
   Set Zieltab = ActiveWorkbook.Worksheets("LieferantenRechnungen")
   For Each Zelle In Quelltab.Range("A2:D2")
      Zieltab.Cells(Zaehler, 2) = Zelle
      Zaehler = Zaehler + 1
   Next Zell
End Sub

Das war schon mal falsch: Quelltab.Range(A2:D2) habe ich geändert auf D3:H3), Aber trotzdem wird das nun in der Spalte Lieferantenrechnungen B untereinander eingetragen. Ich brauche das aber in der Teile (A2:E2) der nächste Eintrag soll dann automatisch in die nächste Zeile

[Rabe]

Hi,

Das war schon mal falsch: Quelltab.Range(A2:D2) habe ich geändert auf D3:H3), Aber trotzdem wird das nun in der Spalte Lieferantenrechnungen B untereinander eingetragen. Ich brauche das aber in der Teile (A2:E2) der nächste Eintrag soll dann automatisch in die nächste Zeile

so?

Option Explicit

Sub Zahlplan()
   Dim Quelltab As Worksheet
   Dim Zieltab As Worksheet
   Dim Zaehler As Long

'   Bereich = "D3:G3" 
   Set Quelltab = ActiveWorkbook.Worksheets("Zahlplan")
   Set Zieltab = ActiveWorkbook.Worksheets("LieferantenRechnungen")
   
   Zaehler = Zieltab.Range("B" & Rows.Count).End(xlUp).Row
   Quelltab.Range("D3:H3").Copy Zieltab.Cells(Zaehler, 1)
End Sub

oder wegen Konsistenz der Bereichsbezeichnung:

   Quelltab.Range("D3:H3").Copy Zieltab.Range("A" & Zaehler)

[prymano]

Hallo ja schon aber das betrifft dann nur die Zeile 3
muss aber fortlaufend übertragen Zeile 4,5 usw.

[Rabe]

hi,

muss aber fortlaufend übertragen Zeile 4,5 usw.

Option Explicit

Sub Zahlplan()
   Dim Quelltab As Worksheet
   Dim Zieltab As Worksheet
   Dim loLetzteQ As Long
   Dim Zaehler As Long
   Dim i As Long
   
   '   Bereich = "D3:G3" 
   Set Quelltab = ActiveWorkbook.Worksheets("Zahlplan")
   Set Zieltab = ActiveWorkbook.Worksheets("LieferantenRechnungen")
   
   loLetzteQ = Quelltab.Range("D" & Rows.Count).End(xlUp).Row
   Zaehler = Zieltab.Range("B" & Rows.Count).End(xlUp).Row
   For i = 3 To loLetzteQ
      Zaehler = Zaehler + 1
      Quelltab.Range("D" & i & ":H" & i).Copy Zieltab.Cells(Zaehler, 1)
   Next i
End Sub

[prymano]

Funktioniert leider nicht. Ich habe jetzt der Einfachheit halber die Excel Mappe hinzugefügt.

[Rabe]

Hi,

Funktioniert leider nicht. Ich habe jetzt der Einfachheit halber die Excel Mappe hinzugefügt.

ich habe dieses Makro:

Code:

Option Explicit

Sub Zahlplan()
  Dim Quelltab As Worksheet
  Dim Zieltab As Worksheet
  Dim loLetzteQ As Long
  Dim Zaehler As Long
  Dim i As Long
 
  '   Bereich = "D3:G3"
  Set Quelltab = ActiveWorkbook.Worksheets("Zahlplan")
  Set Zieltab = ActiveWorkbook.Worksheets("LieferantenRechnungen")
 
  loLetzteQ = Quelltab.Range("D" & Rows.Count).End(xlUp).Row
  Zaehler = Zieltab.Range("B" & Rows.Count).End(xlUp).Row
  For i = 3 To loLetzteQ
     Zaehler = Zaehler + 1
      Quelltab.Range("D" & i & ":H" & i).Copy Zieltab.Range("A" & Zaehler)
  Next i
End Sub

anstelle des von Dir in der Datei verwendeten aufgerufen.
Dies war das Ergebnis:

LieferantenRechnungen

	A	B	C	D	E
1	Betrag	Lieferant	RE-Dat.	Re-Nr.	bezahlt
2		100
3		Test
4		42717
5		1111
6	100	Test	13.12.2016	1111
7	15	test2	12.12.2016
8	10	test3	11.12.2016		17.06.2016
9

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

Es werden in Tabelle2 die Zeilen untereinander ausgefüllt mit:
RE-Betr., Lieferant, RE Dat., RE.-Nr., Zahldatum

Was ist daran nun falsch?

[prymano]

Super Danke es funktioniert. Werde da aber noch etwas basteln.
Ich denke diese Excel Mappe ist auch für andere brauchbar.
Zahlungen im einfachen Überblick, vor allem auch im Voraus und leichte Übergabe aller Lieferantenrechnungen als csv an die Fibu