Hallo liebe Excel-Profis,

ich habe eine Bestell-Liste gebastelt, in der ich nacheinander Artikel und Hersteller und auch Besteller eintragen kann. Die Liste sortiert und summiert mir die einzelnen Posten, sodass ich verschiedene Aufträge nur noch "herunterschreiben" muss.

Nun möchte ich die Liste um ein paar Funktionen erweitern.

Ich lasse nun per VBA-Code pro Zeile drei Buttons einfügen und weise diesen jeweils ein Makro zu. Einen + Butten, einen - Button und einen Delete-Button. Funktion ist wahrscheinlich klar. Posten erhöhen, reduzieren und kompletten Posten löschen.

Problem 1 ist, dass ich beim Klicken auf einen Button in einer beliebigen Zeile über das gestartete Makro erkennen muss, in welcher Zeile sich der Button befindet, um genau diese Zeile der Liste bearbeiten zu können.
Wie ermittle ich die Zeile, in der sich der Button befindet, um genau diese Zeile mit dem Makro zu addressieren?

Problem 2 ist, dass die Liste über eine Sortierfunktion verfügt. Wie sortiere ich die Buttons gleichzeitig mit den Einträgen? Gibt es eine Möglichkeit, die Grafiken mit der gesamten Zeile zu "verknüpfen", sodass sie quasi mit zur Zelle gehören? Hintergrundgrafik oder soetwas? Und kann ich Ihnen dann noch ein Makro zuweisen?

Danke für Eure Antworten!

Ich habe jetzt unzähle Varianten durch. Ich baue ein Bestellsystem für zwei verschieden Shops. Heißt, bei jedem eingetragenen Artikel in die Bestellliste soll am Ende der Listen-Zeile das jeweilige Logo eingefügt werden, kleiner als das Originalbild, kleiner als die Zeile selbst, für die Übersichtlichkeit in der Liste, mittig ausgerichtet.

Ich habe von Pictures.Insert zu Shapes.AddPicture gewechselt, da ich gelesen habe, dass dies die korrektere Form sei. Jetzt bekomme ich eine Fehlermeldung bei der Festlegung eines Rahmens.
Kann mir jemand meine Fehler aufzeigen? Folgende Fragen stellen sich mir:
- Welchen Variablen-Typ brauche ich für ein eingefügtes Bild?
- Wie kann ich diese Variable dann verwenden, um Größe, Position und Rahmen festzulegen?

Danke sehr!!!!!!

Sub LogoEinfügen(Shop As String, Zeile As Integer, Spalte As Integer)

Dim Breite As Integer
Dim Höhe As Integer
Dim strDatei As String
Dim Logo As Object
Dim ShopFarbe As Long, Rot As Long, Blau As Long

' Farben für die zwei Shops festlegen
Rot = 26316
Blau = 13395456

' Dateinamen je nach Shop auswählen und Shop-Farbe einstellen
If Shop = "ZL" Then
  strDatei = "D:\logo1.jpg"
  ShopFarbe = Rot
End If

If Shop = "AQ" Then
  strDatei = "D:\logo2.jpg"
  ShopFarbe = Blau
End If

' Bild einfügen

' Ort festlegen
Dim rg As Range
Set rg = ActiveSheet.Cells(Zeile, Spalte)

' Und einfügen
Set Logo = ActiveSheet.Shapes.AddPicture(strDatei, msoTrue, msoTrue, rg.Left, rg.Top, -1, -1)
Set rg = Nothing

With Logo
      .LockAspectRatio = msoFalse              ' Verzerrung egal
      .Height = Rows(Zeile).RowHeight - 4      ' kleiner als Zeile
      .Width = Columns(Spalte).Width - 4       ' schmaler als Spalte
      .Top = Cells(Zeile, Spalte).Top + (Cells(Zeile, Spalte).Height - Logo.Height) / 2         ' mittig
      .Left = Cells(Zeile, Spalte).Left + (Cells(Zeile, Spalte).Width - Logo.Width) / 2          ' mittig
  End With
  
  ' Rahmen ums Bild, in der Farbe des Shops
  With Logo.ShapeRange.Line
    .Visible = msoTrue
    .ForeColor.RGB = ShopFarbe
    .Weight = 1.5
    .ForeColor.TintAndShade = 0
  .ForeColor.Brightness = 0
End With

Set Logo = Nothing

' Zeilenhöhe anpassen
' Rows(Zeile).RowHeight = Logo.Height
 
End Sub

Hi,
ich möchte in eine Bestellliste das Datum der Bestellung mit aufnehmen. Aus Zeitgründen möchte ich nur 190121 eingeben, also ohne Punkte und ich möchte, dass Excel mir diese Zahlenreihe in ein Datum überträgt, mit Punkten.
Ich habe diverse Formellösungen gefunden, die ich aber nicht zum funktionieren bekomme.
=TEXT(A1;"00-00-00")*1 die hier zum Beispiel
=WERT(TEXT(A1;"00"".""00"".""00")) und die hier

Bei ergeben bei mir den selben Wert und zwar nicht das Datum, das ich eingegeben habe.
Ich kenne mich leider bei den Funktionen, bzw. Formeln noch nicht aus.

Danke für Antworten!

Herzliche Grüße
neo007bb