PDA

Vollständige Version anzeigen : Zelle in Tab 1 mehrmals in Spalte Tab2


iso193
26.06.2015, 06:42
Guten Morgen zusammen,

folgendes Problem:

Auftragsnr. 987654 in Tabelle 1/B2 soll 15x (siehe D2) in Spalte A bei Tabelle 2 eingetragen werden.

Sobald eine weitere Auftragsnr. in Tabelle1/B3 (und die Anzahl) eingegeben wurde, soll diese in Tabelle 2 unter der alten Auftragsnr. weitergeführt werden.

Tabelle1:
http://www.bilder-upload.eu/thumb/38e592-1435297976.jpg (http://www.bilder-upload.eu/show.php?file=38e592-1435297976.jpg)

Tabelle2:
http://www.bilder-upload.eu/thumb/e21be1-1435297999.jpg (http://www.bilder-upload.eu/show.php?file=e21be1-1435297999.jpg)

Ich wäre für einen Link oder eine Hilfestellung dankbar. Falls Unklarheiten da sind, bitte kurz melden.

Vielen Dank im Voraus!

XL-Grüße,
iso193

Edit: Wichtige Info vergessen. Auf Tabelle 2 möchte ich nicht zugreifen, d.h. nach Eingabe der Nr. und der Anzahl in Tabelle 1, sollten die Werte automatisch in Tabelle 2 übertragen werden.

Beverly
26.06.2015, 07:20
Hi,

werden die Werte in Spalte D von Hand eingetragen oder ergeben sie sich aus einer Formel?

Wenn sie von Hand eingetragen werden, dann kannst du es vom Prinzip her mit folgendem Code im Codemodul des Tabellenblattes Tabelle2 lösen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLetzte As Long
Dim lngAnzahl As Long
If Target.Count = 1 Then
If Target.Column = 4 Then
If Target <> "" Then
With Worksheets("Tabelle1")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
lngAnzahl = Target
Target.Offset(0, -3).Copy
.Cells(lngLetzte + 1, 1).Resize(lngAnzahl, 1) = Target.Offset(0, -3)
Application.CutCopyMode = False
End With
End If
End If
End If
End Sub



Falls es ein Formelergebnis ist, dann musst du den Code entsprechend anpassen und eine andere Spalte verwenden, die das Ereignis auslöst. Dabei nicht vergessen, die Offset-Inhalte zu ändern.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

iso193
26.06.2015, 08:50
Hallo Beverly,

vorerst vielen Dank für die Hilfe.

In der Zeile D befindet sich eine Formel. Habe allerdings testweise diese entfernt und einen Wert eingefügt. Wenn ich jetzt den von dir geposteten Code in die Tabelle 2 einfüge, tut sich nichts.

Muss ich da noch etwas anderes beachten?

Vielen Dank!

Beverly
26.06.2015, 12:16
Hi,

sorry, mein Fehler. Der Code gehört natürlich in Tabelle1 - also auf jeden Fall in die Tabelle in der du die Anzahl einträgst.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>