Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle löschen

Forumthread: Zelle löschen

Zelle löschen
04.02.2003 09:27:31
Joerg
Hallo,
ich möchte über den Inhalt eines Textfeldes
eine Zelle Löschen und habe folgenden Code geschrieben:

Spalte = Trim(Str(Val(TextBox31.Text) + 1))
If TextBox10.Value = "" Then
GoTo Sprung:
End If
'Zeile Löschen
Worksheets("Drucker").Select
Cells(Spalte, Spalte).Row.Delete Shift:=xlUp

spalte soll die Zeile definieren die Gelöscht werden soll aber es
geht nicht wo ist hier der Fehler.

Gruß Jörg

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zelle löschen
04.02.2003 09:58:51
Nepumuk

Hallo Jörg,
das Trim und Str kannst du auch weglassen, da Spalte einen nummerischen Wert annehmen sollte. Aber was steht eigentlich in der Textbox drin?
Gruß
Nepumuk

Re: Zelle löschen
04.02.2003 10:03:20
Joerg

In der Spalte steht nur eine ID,
welche evt auch mit in den Code einbauen könnte,
da ID +1 = die zu löschenden Zeile.

Aber da bleibt immer noch die Frage für ein Grennhorn wie mich
WIIIEEE

Anzeige
Re: Zelle löschen
04.02.2003 10:17:32
Nepumuk

Hallo Jörg,
so geht's:

Rows(CStr(spalte) & ":" & CStr(spalte)).Delete Shift:=xlUp

Gruß
Nepumuk

Mag aber immer noch nicht
04.02.2003 10:27:36
Joerg

Hi Nepumuk,

ich habe deinen Code wie folgt eingebaut:

Spalte = Trim(Str(Val(TextBox1.Text) + 1))
If TextBox10.Value = "" Then
GoTo Sprung:
End If
'Zeile Löschen
Worksheets("Drucker").Select
Rows(CStr(Spalte) & ":" & CStr(Spalte)).Delete Shift:=xlUp

Aber es mag nicht so ganz.

Gruß Jörg

Anzeige
Re: Mag aber immer noch nicht
04.02.2003 10:30:51
Nepumuk

Hallo Jörg,
kommt eine Fehlermeldung?
Gruß
Nepumuk

Re: Mag aber immer noch nicht
04.02.2003 10:45:09
Joerg

Nein das Macro wird abgearbeitet aber es zeigt keine Wirkung.

Gruß Jörg

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige