Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Zuordnung auf Tabellenblätter | Herbers Excel-Forum


Betrifft: Zuordnung auf Tabellenblätter von: Gero
Geschrieben am: 27.01.2010 10:29:39

Hallo liebe Excel-Gemeinde,

Ich habe zu der unten angehängten Tabelle 2 Fragen.

Wie kann ich die du Produkte hintereinander den entsperchenden Tabellenblättern zuordnen ohne dass das vorhergegangene Produkt überschrieben wird? (nächste leere Zelle) (kopiert wird die grünme Zelle + 2 Offsets)?

Wie kann ich die einfärbung wieder löschen wenn ich durch den Commandbutton die Zuordung zu der jeweiligen Person gelöscht habe?

https://www.herber.de/bbs/user/67538.xls

Vielen Dank schon einmal !!!

LG, Gero

  

Betrifft: AW: Zuordnung auf Tabellenblätter von: fcs
Geschrieben am: 27.01.2010 15:36:18

Hallo Gero,

hier am Beispiel von LISA, wie du die beiden Button-Makros anpassen muss.

Gruß
Franz

Private Sub CommandButton1_Click()
  Dim Zeile
  With Sheets("LISA")
    Zeile = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    Selection.Copy .Cells(Zeile, 2)               'Kopieren nach Spalte B
    Selection.Offset(0, 5).Copy .Cells(Zeile, 3)  'Kopieren nach Spalte C
    Selection.Offset(0, -1).Copy .Cells(Zeile, 1) 'Kopieren nach Spalte A
  End With
  Selection.Offset(0, -1).Interior.ColorIndex = 5
  Range(Selection.Offset(0, 1), Selection.Offset(0, 6)).Interior.ColorIndex = 5
End Sub

Private Sub CommandButton7_Click()
  Dim Zeile
  Sheets("LISA").Range("A:C").Clear
  With Sheets("CLIPBOARD TOTAL")
    For Zeile = 12 To .Cells(.Rows.Count, 2).End(xlUp).Row
      'Farbe in SPalte A prüfen
      If .Cells(Zeile, 1).Interior.ColorIndex = 5 Then
        'Farbfüllung = keine Füllfarbe
        .Cells(Zeile, 1).Interior.ColorIndex = xlColorIndexNone
        .Range(.Cells(Zeile, 3), .Cells(Zeile, 8)).Interior.ColorIndex = xlColorIndexNone
      End If
    Next
  End With
End Sub



Beiträge aus den Excel-Beispielen zum Thema "Zuordnung auf Tabellenblätter"