ganze Zeile löschen mit VAriable

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nick,
Excel ist ein vielseitiges Programm und man kann viele Probleme damit lösen. Jede positive Seite hat aber auch negative Aspekte - einer davon ist im Makrorecorder enthalten.
Die Bücher, die es zu Excel VBA gibt, erklären viele Funktionen, aber ich habe bisher nur in einem gelesen, dass der vom Makrorecorder aufgezeichnete Code bereinigt werden sollte.
Der Makrorecorder zeichnet alle Aktionen auf, u. a. auch das Auswählen einer Zelle oder eines eingebetteten Objektes (Bild, Diagramm, Zeichnungsobjekt usw.) dabei wird generell Select und Activate aufgezeichnet. Diese Befehle sind in VBA zu 99,9% nicht notwendig. Sie lassen den Bildschirm flackern und senken die Geschwindigkeit bei der Ausführung des Codes. Man sollte also schon von Beginn an bei der Programmierung darauf achten, solche Befehle zu vermeiden. Meine Erfahrung mit dem Vorsatz: Das mache ich später ist, man schreibt das Programm später meist komplett neu. Also kostest es nicht nur Rechnerzeit sondern auch Deine Zeit und ist Dir Deine Zeit so wenig Wert?
Zum Vergleich mit und ohne Select schau Dir auch mal diese Beispielarbeitsmappe an: mit und ohne select Auf meiner Homepage sind alle meine Beispiele ohne Select. Da kann man sich also einige Lösungsansätze zu diesem Thema ansehen.
Du hast keine Zeile angegeben.

Option Explicit Sub test() ' erstellt von Hajo.Ziplies@web.de 12.04.03 Dim Found As Range Dim LoLetzte As Long Dim sSearch As String sSearch = InputBox("Suchbegriff:", , "test") If sSearch = "" Then Exit Sub LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536) Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , _ xlNext) ' kompletter Vergleich und Inhalt ' Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _ ' .Cells(5753, 10), xlValues , xlWhole, , xlNext) If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen MsgBox Found.Address End Sub

Hallo Nick,
Ein Hallo zu Beginn und ein Gruß am Ende lässt den Beitrag doch gleich viel persönlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst, sind es doch Menschen die den Beitrag lesen und keine Maschinen. Da sollte doch ein wenig Zeit für diese paar Worte da sein.
Falls ich mal einen Brief schreibe, dann steht zu Beginn Hallo oder eine ähnliche Anrede und zum Schluss ein Gruß ... Ich vermute, bei Dir sieht es nicht viel anders aus. Nach meiner Auffassung ist ein Beitrag so etwas Ähnliches wie ein Brief und weshalb sollte ich mich da zwingen, eine andere Form zu benutzen?
Versuche es auch mal und Dir wird auffallen: wenn sich jeder Benutzer Zeit für höfliche Umgangsformen nimmt, führt das zu einer besseren Unterhaltung im Forum und keiner fühlt sich schlecht behandelt.
Eine Frage auf die Antwort und nicht seinen eiugenen Beitrag, macht sich besser, dann sieht man seine Antwort.
Rows(RaFound.Row).delete
Gruß Hajo

Public Sub test(eingabe as String) ' erstellt von Hajo.Ziplies@web.de 12.04.03 Dim Found As Range Dim LoLetzte As Long Dim sSearch As String sSearch = eingabe If sSearch = "" Then Exit Sub LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536) Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , _ xlNext) ' kompletter Vergleich und Inhalt ' Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _ ' .Cells(5753, 10), xlValues , xlWhole, , xlNext) If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen MsgBox Found.Address End Sub

Public Function test(eingabe As String) As Integer Dim Found As Range Dim LoLetzte As Long Dim sSearch As String sSearch = eingabe If sSearch = "" Then Exit Function LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536) Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , _ xlNext) ' kompletter Vergleich und Inhalt ' Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _ ' .Cells(5753, 10), xlValues , xlWhole, , xlNext) If Found Is Nothing Then MsgBox ("nicht gefunden") Exit Function Else test = Found.Row End If End Function

Beliebteste Forumthreads (12 Monate)

ganze Zeile löschen mit VAriable

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ganze Zeile löschen mit VAriable

10 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)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread