Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zellen einer Zeile in andere Tabelle übernehmen mit Eingabemaske (VBA)
#21
Hallo

ich war einige Tage privat verhindert und habe jetzt erst die letzte Anfrage gesehen. Man kann es so probierenü den Code ab Application.CutCıoyMode austauschen. Die Zeile mit "**" ist neu hinzugekommen und markiert zuerst nur die zu löschenden Zeilen mit "#" Zeichen. 

Der zweite Code ist eine For Next Schleife im Rückwaerts Modus!  Das muss beim Löschen so sein, weil beim Vorwaerts Löschen immer die aktuelle Zeile gelöscht wird, und der For Next Zaehler dabei durcheinander kommt! 

Bitte den Code zuerst in einer kopierten Datei testen, und rpüfen ob er einwandcfrei laeuft, oder versehentlich falsche Zeilen gelöscht! werden. 

mfg Gast 123

Code:
      'Kopiermodus zum Schluss ausschalten!
      Application.CutCopyMode = False
           
      '** Zeichen zum Löschen dieser Zeile setzen
      MTG.Cells(mtFind.Row, "A").Value = "##"
     
      Set mtFind = MTG.Range("K:K").FindNext(mtFind)
      If mtFind Is Nothing Then Exit Sub
   Loop Until Adr1 = mtFind.Address
 End With
 
 'markierte Zeilen löschen
 Call Markierte_Zeilen_löschen
Exit Sub
Fehler: MsgBox "unerwarteter Fehler:" & vbLf & Error()
End Sub



Sub Markierte_Zeilen_löschen()
Dim j As Long, lz1 As Long
 With Worksheets("Mitglieder")
    'Letzte Zeile in Spalte A suchen
    lz1 = .Cells(Rows.Count, 1).End(xlUp).Row
    For j = lz1 To 2 Step -1
      If InStr(.Cells(j, 1), "#") Then _
         .Rows(j).Delete shift:=xlUp
    Next j
 End With
End Sub
Antworten Top
#22
Hallo Gast 123,

das ist ja unglaublich, wie perfekt das funktioniert.
Bin mal wieder total beeindruckt.

Vielen, vielen Dank auch im Namen meiner Vorstandskollegen !

MfG
Gerhard
[-] Folgende(r) 1 Nutzer sagt Danke an mdt8ws für diesen Beitrag:
  • Gast 123
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste