Lagerliste

[schauan]

Nicht unbedingt, Edgar.
Das ist eine Macke der Forumsoftware. Ist bei mir auch öfter, wie auch jetzt bei dieser Antwort ohne vorheriger Betätigung des Zitatbuttons.
Da hilft dann nur das Löschen der Kekse.

Gruß, Uwe

Normalerweise bei mir:

- tut das "Antworten" mit dem Button neben dem Multizitat ein Vollzitat des Beitrages, auf den man da antwortet, einfügen. Hab ich jetzt hier gemacht.
--> ich verwende den so gut wie nicht und bin mir nicht sicher, ob er das nur sporadisch tut oder immer. Ich hab jetzt ein paar Threads getestet und es kam immer.
--> normalerweise ist dieser "Antworten" Button für Nutzer der "Baumstruktur" relevant, damit die Antwort entsprechend einsortiert wird.
--> Das Zitat wäre vielleicht für Nutzer der linearen Struktur gedacht, damit die gleich wissen, worum es geht. Dort stehen die Beitrage ja chronologisch untereinander.

- sollte das Verwenden von "Multizitat" ein Vollzitat des Beitrages einfügen, wo man das angeklickt hat - egal, auf welchen Beitrag man antwortet.
--> Multizitat wirkt im Thread so lange, bis man es wieder abstellt. Dabei ist es egal, welchen "Antworten" - Button man drückt.
--> der Button bleibt eventuell aktiv, auch wenn man zwischenzeitlich in einen anderen Thread geht

[Putsch86]

Ich habe gestern nochmal Google bemüht und dann ein Tutorial gefunden um mir eine Lagerverwaltung zu bauen.

Alles gut soweit. Allerdings scheitere ich nun an einem Code. Es wird nicht ausgeführt obwohl ich (meiner Meinung nach) alles genau so geschrieben habe wie in dem Tutorial.

Wenn ich auf F5 drücke kommt der Fehler: Laufzeitfehler '438' Objekt unterstützt diese eigenschaft oder Methode nicht

Ich finde aber nicht was ich falsch gemacht habe 

[schauan]

... mal eine kleine Alternative - als Antwort auf den ungeänderten Beitrag:

Code:

Sub CheckListColumnVisibility()
    Dim objTbl As ListObject, iCnt%
    Set objTbl = Worksheets("Tabelle1").ListObjects("Tabelle1")
    For iCnt = 1 To objTbl.ListColumns.Count
    If objTbl.ListColumns(iCnt).Range.EntireColumn.Hidden Then
        Debug.Print "column " & iCnt & " hidden"
    Else
        Debug.Print "column " & iCnt & " visible"
    End If
Next
End Sub

Du kannst damit den Schleifenzähler verwenden.

[Putsch86]

Soll ich jetzt alles löschen und das was du geschrieben hast einfügen @ schauan ?

[snb]

Ohne AI:

Code:

Private Sub UserForm_Initialize()
  ListBox1.Column = Tabelle2.ListObjects(1).HeaderRowRange.Value
   
  For j = 1 To ListBox1.ListCount
    ListBox1.Selected(j-1) = Tabelle2.ListObjects(1).Range.Columns(j).Hidden
  Next
End Sub

[Kuwer]

Normalerweise bei mir:

- tut das "Antworten" mit dem Button neben dem Multizitat ein Vollzitat des Beitrages, auf den man da antwortet, einfügen. Hab ich jetzt hier gemacht.

Das ist aber nicht der Normalzustand, André. Nach Löschung der Cookies kommt kein Zitat mehr, wenn der Multizitatbutton nicht aktiviert wurde.

Gruß, Uwe

[Putsch86]

Ohne AI:

Code:

Private Sub UserForm_Initialize()
  ListBox1.Column = Tabelle2.ListObjects(1).HeaderRowRange.Value
   
  For j = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(j) = Tabelle2.ListObjects(1).Range.Columns(j).Hidden
  Next
End Sub

Auch hier meine Frage: Kann ich das 1:1 kopieren und ersetzen?

Das ist aber nicht der Normalzustand, André. Nach Löschung der Cookies kommt kein Zitat mehr, wenn der Multizitatbutton nicht aktiviert wurde.

Gruß, Uwe

Vielleicht kann man das in einem anderen Thread diskutieren? Das hilft mir hier bei meinem Anliegen leider nicht weiter. Merci  

[schauan]

@Tanja,

also, mein Beispiel ist sozusagen zum Lernen und Du musst das dann für Dich umsetzen.
snb hat Dir gleich einen fertigen Code gepostet, mit dem Du Deinen ersetzen kannst.

[snb]

Achtung: Code in #25 verbessert.

Etwas weiniger konfus:

Statt Welche Spalten möchten Sie ein-/ausblenden?

Welche Spalten möchten Sie ausblenden?

[Putsch86]

Hallo an alle!

Ich habe mir Online nun eine Vorlage für die Lagerverwaltung heruntergeladen und fast auf unsere Bedürfnisse angepasst. 

Das einzige Problem was ich nicht beheben kann ist folgendes:

Das Programm vergibt eine Produkt-ID, was soweit auch völlig in Ordnung ist. Nun möchte ich aber noch die Möglichkeit haben, die externe Bestellnummer hinzuzufügen und ich finde absolut nicht wo ich das alle ändern und eintragen muss (ich habe auch Angst den Code kaputt zu machen, so dass dann gar nichts mehr funktioniert). Gibt es hier jemanden der das für mich machen könnte?

Grüße

Tanja