wenn in tabelle wert in spalte dann neue zelle in

Forumthread: wenn in tabelle wert in spalte dann neue zelle in

10.11.2016 13:33:42

Simon

Hallo zusammen,
folgendes Problem
ich habe eine Rechnungsvorlage erstellt wo aus der Tabelle Rechnungsdaten die eingegebenen Kriterien direkt in die Tabelle Rechnung übernommen werden.
Jetzt sind es allerdings immer unterschiedlich viele Positionen.
Aus diesem Grund möchte ich das sobald eine zweite, dritte oder xte Position hinzugefügt wird, diese automatisch in die Rechnung ergänzt wird.
Ich hoffe ich habe es einigermasen verständlich erklären können und hoffe auf eure Hilfe.
Danke Simon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: wenn in tabelle wert in spalte dann neue zelle in

10.11.2016 13:37:30

Hola,
so ganz ohne Kenntnis deiner Tabelle wird das wilde Raterei.
Lad doch bitte eine Beispieldatei hoch.
Gruß,
steve1da

AW: wenn in tabelle wert in spalte dann neue zelle in

10.11.2016 14:02:15

Simon

Danke für die schnelle Antwort
ich hoffe das hilft
grüsse
https://www.herber.de/bbs/user/109319.xlsm

AW: wenn in tabelle wert in spalte dann neue zelle in

16.11.2016 21:10:09

Anton

Hi Simon,
öffne keine Makrofiles aber hier mal mein Vorschlag. Hoffe, dass ich es richtig verstanden habe:

Sub VergleichenUndKopieren()
Dim lngZQ As Long
Dim lngZMaxQ As Long
Dim lngZMaxZ As Long
Dim lngZDiff As Long
Dim lngZMaxZiel As Long
Dim wkb As Workbook
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Set wkb = ThisWorkbook
Set wksQuelle = wkb.Worksheets("Rechnungsdaten")
Set wksZiel = wkb.Worksheets("Rechnung")
With wksQuelle
lngZMaxQ = .UsedRange.Rows.Count
lngZMaxZ = wksZiel.UsedRange.Rows.Count
If lngZMaxQ  lngZMaxZ Then
lngZDiff = lngZMaxQ - lngZMaxZ
lngZMaxZiel = lngZMaxZ + 1
For lngZQ = (lngZMaxQ - lngZDiff) + 1 To lngZMaxQ
.Rows(lngZeile).Copy Destination:=wksZiel.Rows(lngZMaxZiel)
lngZMaxZiel = lngZMaxZiel + 1
Next lngZeile
End If
End With
End Sub

Damit der Code fehlerfrei läuft muss eine Überschrift vorhanden sein und es dürfen keine leeren Zeilen in der Tabelle vorkommen.
VG Anton

AW: wenn in tabelle wert in spalte dann neue zelle in

16.11.2016 21:23:22

Anton

Bitte den Code hier nehmen:

Sub VergleichenUndKopieren()
Dim lngZQ As Long
Dim lngZMaxQ As Long
Dim lngZMaxZ As Long
Dim lngZDiff As Long
Dim lngZMaxZiel As Long
Dim wkb As Workbook
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Set wkb = ThisWorkbook
Set wksQuelle = wkb.Worksheets("Rechnungsdaten")
Set wksZiel = wkb.Worksheets("Rechnung")
With wksQuelle
lngZMaxQ = .UsedRange.Rows.Count
lngZMaxZ = wksZiel.UsedRange.Rows.Count
If lngZMaxQ  lngZMaxZ Then
lngZDiff = lngZMaxQ - lngZMaxZ
lngZMaxZiel = lngZMaxZ + 1
For lngZQ = (lngZMaxQ - lngZDiff) + 1 To lngZMaxQ
.Rows(lngZQ).Copy Destination:=wksZiel.Rows(lngZMaxZiel)
lngZMaxZiel = lngZMaxZiel + 1
Next lngZQ
End If
End With
End Sub

Waren zwei Variablen falsch benannt.
VG Anton

Beliebteste Forumthreads (12 Monate)

wenn in tabelle wert in spalte dann neue zelle in

Forumthread: wenn in tabelle wert in spalte dann neue zelle in

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

wenn in tabelle wert in spalte dann neue zelle in

Forumthread: wenn in tabelle wert in spalte dann neue zelle in

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread