Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Suchen - markieren - löschen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Suchen - markieren - löschen (679 mal gelesen)
röhmler
Mitglied
Sachbearbeiter techn. Dokumentation


Sehen Sie sich das Profil von röhmler an!   Senden Sie eine Private Message an röhmler  Schreiben Sie einen Gästebucheintrag für röhmler

Beiträge: 414
Registriert: 17.02.2004

AutoCAD Mechanical 2014

erstellt am: 10. Mai. 2016 10:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Guten Morgen,

ich hab mal einen Code (siehe unten) gebastelt, dass ich alles lösche ab der Zeile, wo eine leere Zelle (A-H
vorkommt. Aber zu suchen nach einem Inhalt, der mit  "DICHTELEMNT-SATZ"
beginnt und dann alle ausgefüllten Zeilen darunter markiert und löscht, das krieg ich nicht hin.

Im Folgenden Code springe ich in Spalte E auf die letzte ausgefüllte Zelle, springe eins
runter, markiere dann alle beschrifteten Zeilen und lösche diese.


    Range("E2").Select                                                 
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Range("A" & ActiveCell.Row & ":E" & ActiveCell.Row).Select
    Range(Selection, Selection.End(xlDown)).Select
    a = MsgBox("Auswahl löschen!", vbYesNo)
    If a = vbNo Then Exit Sub Else
    Selection.Delete

Kann mir bitte jemand weiter helfen?

VIELEN DANK

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2624
Registriert: 02.05.2006

Office 2010; Office365
Visual Basic

erstellt am: 10. Mai. 2016 13:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für röhmler 10 Unities + Antwort hilfreich

Hallo Röhmler,
es ist nicht sinnvoll mehrere Beiträge mit gleichem Inhalt zu erstellen
Du hast hier schon die gleiche Frage gestellt !
Wenn jemand der sich auskennt Zeit hat Deine Frage zu beantworten wird er es auch ganz sicher dort machen.

Aber wie schon geschrieben, solltest Du Dich einmal mit den Grundprinzipien der Programmierung auseinandersetzen.
Durchlaufe Deine Zellen und vergleiche den Inhalt mit z.B.:

For i = Start To Ende  ' Start und Ende sind Anfangs- und Endreihe der Tabelle und müssen vorher festgelegt werden
  If InStr(Cells(i, 5), "DICHTELEMNT-SATZ") Then
    Stop  ' hier ist der erste Zellwert mit dem gesuchten Inhalt
    Exit For  ' das Durchlaufen wird abgebrochen
  End If
Next i
If i < Ende Then
  ' Es wurde ein gesuchter Wert vor dem Tabellenende gefunden
  ' Jetzt kannst Du machen was Du möchtest
  ' Markiere ab Zeile i bis Zeile Ende und lösche diese
End if

Diese Stringabfragen sind aber Grundlagenwissen, das auch in der Excel-Entwicklerhilfe (F1 im VB-Editor) nachgelesen werden kann.

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

röhmler
Mitglied
Sachbearbeiter techn. Dokumentation


Sehen Sie sich das Profil von röhmler an!   Senden Sie eine Private Message an röhmler  Schreiben Sie einen Gästebucheintrag für röhmler

Beiträge: 414
Registriert: 17.02.2004

AutoCAD Mechanical 2014

erstellt am: 10. Mai. 2016 13:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke und Entschuldigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz