Mit ComboBox Zeilen verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) 'wird immer ausgeführt wenn sich etwas auf _ dem Tabellenblatt ändert 'Zeile nach oben verschieben Dim Z As Long If Target.Column = 11 Then 'wenn Änderung in Spalte 1 (K) If Target.Count = 1 Then 'wenn nur in eienr Zelle geändert wurde If Not Target Is Nothing Then 'ist hier überflüssig If Target.Value = "x" Then 'wenn in der geänderten Zelle ein "x" steht Range("30:30").Rows.Insert 'füge in Zeile 30 eine Zeile ein Target.EntireRow.Copy Range("30:30") 'kopiere zeile mit x nach zeile 30 Target.EntireRow.Delete shift:=xlUp 'lösche zeile zeile mit x End If End If End If End If End Sub

Private Sub ComboBox1_Change() Dim Typ As Long Typ = Range("V73").End(xlUp).Row + 1 If Typ > 73 Then Zeile = 31 Cells(Typ, "V").Value = ComboBox1.Value 'erste freie Zelle in SpalteV ab Zeile 31 End Sub

Private Sub ComboBox1_Click() Dim strtyp As String Dim rng As Range Dim llast As Long Initialisiere 'nur wegen Testing strtyp = ComboBox1.Value If strtyp "" Then Set rng = FindeWert(wksdata, "V73:V87", strtyp) If Not rng Is Nothing Then llast = BestimmeLetzteZeile(wksdata, 1) + 1 'nur wenn Spalte A befüllt wird neue _ letzte Zeile gefunden sonst schreibt er bei mehrmaliger Auswahl hintereinander immer wieder in die selbe Zeile wksdata.Rows(rng.Row).Copy wksdata.Range("A" & llast) Application.CutCopyMode = False Else MsgBox ("Eingestellten Typ nicht gefunden") End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'Zeile nach oben verschieben Dim Z As Long If Target.Column = 11 Then If Target.Count = 1 Then If Not Target Is Nothing Then If Target.Value = "x" Then ComboBox1.Value = False Range("30:30").Rows.Insert Target.EntireRow.Copy Range("30:30") Target.EntireRow.Delete shift:=xlUp ComboBox1.Value = True ComboBox1.Text = "" End If End If End If End If End Sub

Hallo Ulf,
das initialisiere hier in der Funktion habe ich eingebaut, damit ich es testen konnte, das wird ja normal beim öffnen des workbooks aufgerufen, tut aber nicht weh wenn du es dort lässt.
In der funktion selber werden die Variablen für das workbook und die Sheets, in dienm Fall wksdata initialisiert und mit speicherplatz versehen.
wie du beim aufruf von FindeWert siehst, wird dort wksdata mit übergeben. Das ist das Sheet auf dem die Funktion sucht. Du kannst da auch jedes andere Sheet übergeben, wen ndu es in anderen Projekten benutzt.
Du kannst auch überall im Code Thisworkbook.Sheets("MeinSheetName") schreiben. Das Problem ist, wenn du dir dann überlegst den Namen zu ändern, musst du zig Anpassungen in deienm Code machen.
So wie Du es jetzt hast, benuttzt du im Code überall wksdata, also brauchst Du nur in der Funktion initialisere ändern und den neunen Sheetnamen eintragen und schon läuft wieder alles.
Ich hoffe, das hilft als Erklärung.
Ansonsten kann ich dir nur den Rat geben, setz dir breakpoints im debugger und steppe Schritt für Schritt durch die Zeilen, schau dir an was passiert und welchen WErt die Variablen haben, damit du verstehst, was du da machst.
Aber freut mich, wenn jetzt alles so läuft wie gewünscht
Gruß
yummi

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit ComboBox Zeilen verschieben

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread