s | HERBERS Excel Forum

lisa · 2007-10-26T18:12:02+00:00

Hallo Leute Ich habe mal wieder ein Problem. In meiner Tabelle1 habe ich diese Daten stehen. ABC 1ArtikelnummerArtikelbez.MHD 270200-130Mildessa12.01.08 370200-130Mildessa12.01.08 470200-130Mildessa12.01.08 570200-130Mildessa24.01.08 670200-130Mildessa24.01.08 770200-130Mildessa24.01.08 870054-115Rote Beete10.01.08 970054-115Rote Beete10.01.08 1070054-115Rote Beete10.01.08 1170054-115Rote Beete10.01.08 1270054-115Rote Beete15.01.08 1370054-115Rote Beete15.01.08 Nun möchte ich gern in der Tabelle2 eine Artikelnummer in A1 eingeben und angezeigt bekommen wie viele ich von jedem Datum im Bestand habe Also müsste dann, wenn ich in der Tabelle2 in die Zelle a1, 70200-130 eingebe, in der Zelle A2 12.01.08 in B2 3 in A3 24.01.08 und in B3 3 stehen ABC 170200-130 212.01.083 324.01.083

Hallo
? Kann mann nichts in meinem Thread erkenne?
och mann war die Arbeit umsonst? Pfffff.
Ich kann doch aber alles so sehen wie ich es mir vorgestellt habe!
Was nun?
shi...
Muß ich wohl noch mal schreiben.
Ich habe in Tabelle1 in Spalte A mehrere Artikelnummern dazu sind in der Spalte C MHD´s(Mindest haltbarkeitsdaten) hinterlegt.
Nun möchte ich gern in der Tabelle2 mir anzeigen lassen wie viele Artikel pro Datum vorhanden sind.
Dazu wollte ich in der Tab2 in der Zelle A1 eine Artikelnummer eingeben
und in der Zelle A2 das MHD in B2 die Menge
in A3 das nächste MHD in B3 die Menge usw. usw.
Ich hatte es versucht Graphisch darzustellen, dass scheint ja wohl in die Hose gegange zu sein.
Ich könnte auch wohl eine Bsp.-Mappe hochladen.
1 1/2 h Arbeit umsonst.
Kann mir jemand helfen?
Gruß Lisa

Servus Lisa,
das funktioniert:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim suche As Range, Finde As Range
Dim strErste As String
Dim letzte As Long, reihe As Long
Dim LastcellCol As Range
Dim LastCol As Long
If Not Intersect(Target, Range("A1")) Is Nothing Then
Set LastcellCol = Sheets("Tabelle2").Cells.Find("*", , , , xlByColumns, xlPrevious)
If Not LastcellCol Is Nothing Then
LastCol = LastcellCol.Column
If LastCol  1 Then
Sheets("Tabelle2").Range(Sheets("Tabelle2").Cells(1, 2), Sheets("Tabelle2").Cells(2,  _
LastCol)).ClearContents
End If
End If
letzte = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row
Set Finde = Sheets("Tabelle3").Range("A3:A" & letzte)
Set suche = Finde.Find(what:=Target, LookAt:=xlWhole)
If Not suche Is Nothing Then
strErste = suche.Address
Dim Helfer As Integer
Helfer = 0
Sheets("Tabelle2").Cells(1, 2 + Helfer) = suche.Offset(0, 2)
Dim zähler As Integer
zähler = 0
Do
If suche.Offset(0, 2) = Sheets("Tabelle2").Cells(1, 2 + Helfer) Then
zähler = zähler + 1
Sheets("Tabelle2").Cells(2, 2 + Helfer) = zähler
Else
zähler = 1
Helfer = Helfer + 1
Sheets("Tabelle2").Cells(1, 2 + Helfer) = suche.Offset(0, 2)
Sheets("Tabelle2").Cells(2, 2 + Helfer) = zähler
End If
Set suche = Finde.FindNext(suche)
Loop While Not suche Is Nothing And suche.Address  strErste
End If
End If
Set suche = Nothing
Set Finde = Nothing
Set LastcellCol = Nothing
End Sub

Irgendwie lag der Fehler in dieser Zeile:
If suche.Offset(0, 2) = Sheets("Tabelle2").Cells(1, 2 + Helfer) Hier hatte ich Sheets(2)... stehen und das glaube ich hat Excel durcheinander gebracht.
Jetzt habe ich alle ausdeklariert, wenn du jetzt dieses Makro in Tabelle2 kopierst, dann kannst du Tabelle1 löschen und es funktioniert, wie es soll.
Dann kannst du die Arbeitsmappe verwenden, sonst musst du eben die ("Tabellexy") anpassen.
Gruß
Chaos

s

Forumthread: s

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

s

Forumthread: s

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread