VBA-Grundkurs :)

[EasY]

ok gut, dann wird dieses Tabellenblatt ausnahmslos für die Personen - die anderen Tabellen daneben werden in andere Blätter verfrachtet, danke :)

[Käpt'n Blaubär]

Hallo,

ok gut, dann wird dieses Tabellenblatt ausnahmslos für die Personen - die anderen Tabellen daneben werden in andere Blätter verfrachtet, danke

ähm, ja, ... dann warte ich mal drauf, wie es hier weitergehen wird. 

[EasY]

Wieso?

Weitergehen soll es damit, dass man für jeden Mitarbeiter dann div. Urlaubswünsche eintragen kann ... das wird nun in einem anderen Tabellenblatt geschehen. Dort wird dann ebenso eine Auflistung gebaut. Oder verrenn ich mich da jetzt?

[EasY]

Zwei weitere kleinere Probleme sind aufgetreten:


1.
Ich möchte gerne eine Listbox mit genau den vorher eingetragenen Namen befüllen. Dazu habe ich folgenden Code bislang:

Code:

Private Sub UserForm_Initialize()

'Einlesen der Mitarbeiter
Worksheets("Mitarbeiter").Activate
UserForm_Mitarbeiter_entfernen.ListBox_Namensliste.RowSource = "A2:A25"

End Sub

Allerdings soll der Bereich A2:A25 dynamisch sein. Ist das möglich? Ich werde nicht immer den gesamten Bereich gefüllt haben.


2.
Der Befehl Worksheets("Mitarbeiter").Activate macht zwar, was ich erwartet habe, jedoch nicht das, was ich wollte :). Eigentlich soll er die Liste im Hintergrund auslesen und nicht dazu das Tabellenblatt öffnen

[RPP63]

Moin!
Nimm es nicht persönlich!
Aber solltest Du Dir nicht zunächst mal Grundlagen anlesen, bevor Du mit UserForms "spielst"?

Basics:
Verzichte auf Activate und so ein Gedöns!

Fortgeschritten:
.RowSource ist eher kontraproduktiv!
Dafür gibt es .List und Ähnliches

Gruß Ralf

[EasY]

Hi,

nein ich nehme es nicht persönlich. Ein paar Grundlagen habe ich mir mit Youtube-Videos angeeignet und die baue ich dann hier nach - allerdings trifft nicht immer alles so zu, wie ich es brauche. Von daher wende ich mich an euch

[EasY]

Ich habe deinen Anstoß zu Herzen genommen... komme allerdings jetzt nicht mehr weiter. Mein Code bis hierhin:

Code:

Private Sub UserForm_Initialize()

'Array der Namensliste erstellen

Dim Namen()
Dim size As Integer
Dim i As Integer

size = WorksheetFunction.CountA(ThisWorkbook.Sheets("Mitarbeiter").Columns(1))
ReDim Namen(size)

For i = 1 To size
   Namen(i) = Cells(i, 1).Value
Next i

End Sub

ich finde nun allerdings nicht den Code, um das Array einzulesen :(

Code:

ListBox_Namensliste.List = Namen

Wie bekomme ich hin, dass er auch aus dem richtigen Tabellenblatt liest, wenn ich ein anderes geöffnet habe? :(

[Kuwer]

Hallo,

Private Sub UserForm_Initialize()

  With ThisWorkbook.Worksheets("Mitarbeiter")

    Me.ListBox_Namensliste.List = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value

  End With

End Sub

Gruß Uwe

[EasY]

Hallo Uwe,

ich habe die Begriffe, die später in die Listbox eingetragen werden sollen, bereits erfolgreich in einem eindimensionalen Array ("Namen") eingelesen. Wenn ich mich im Tabellenblatt "Mitarbeiter" befinde, funktioniert der Code

Code:

ListBox_Namensliste.List = Namen

perfekt.

Nun soll er aber auch funktionieren, wenn ich mich in einem anderen Tabellenblatt befinde. Ich finde den Befehl dafür leider nicht :(

[EasY]

So nach ewigem Herumprobieren, hat sich das Problem gelöst - mein Fehler lag darin, dass ich die Anweisung thisworkbook.sheets("Mitarbeiter") weiter oben beim Erstellen des Arrays nicht drin hatte!



Nun zu einem weiteren Problem:

Aus einer Spalte, in der ein zu suchender Begriff mehrfach vorkommt, sollen die entsprechenden Zeilen, in der er vorkommt, gelöscht werden. Das Suchen der Zeile bekomme ich hin:

Code:

   Dim finden As Range

   Set finden = Range("A:A").Find(what:=ListBox_Namensliste.Value)
   ThisWorkbook.Sheets("Urlaubswuensche").Rows(finden.Row).Delete

Nun löscht er allerdings nur die erste Zeile die er findet. Um alle zu löschen, habe ich an ein Do-Loop-Schleife gedacht - könnt ihr mir da weiterhelfen oder geht das evtl. auch einfacher?