Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zeile Löschen klappt nicht
zurück: Zellen mit Inhalten kopieren weiter: gezielt spalten ausblenden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
hariotfs
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Jun 2009, 16:47
Rufname: Harro

Zeile Löschen klappt nicht - Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Hallo liebe VBA-Gemeinde,

ich hoffe es ist nur eine Kleinigkeit, aber die Löschung der gewünschten Zeile klappt nicht.
Wenn in Userform die Textbox1.Valuet = Spalte A
(dort stehen einmalige ID-Nr.) ist, soll diese Zeile gelöscht werden.

Code:
'
'    der LÖSCHEN-Button wurde angeklickt
'
Private Sub CommandButton3_Click()
    Dim oControl  As Control
    Set wks = ThisWorkbook.Worksheets("Daten")
        If MsgBox("Wollen Sie den Parkplatz mit der ID-Nr. """ & Textbox1.Value & """  wirklich löschen?", _
               vbYesNo + vbQuestion, "    Löschabfrage, nur zur Sicherheit.") = vbYes Then
           
       
        With wks
            If iZeile = 0 Then Exit Sub ' in der ListBox wurde kein Datensatz angeklickt
            For iZeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
            On Error Resume Next
            If Cells(iZeile, 1).Value = Textbox1.Value Then .Rows(iZeile).Delete Shift:=xlUp
            Next
           
        End With
           
          End If
End Sub


Vielen Dank im voraus für Eure Hilfe

_________________
Gruß hariotfs
Elvis_the_King
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jul 2009, 08:23
Rufname:


AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Hi,

welche Funktion diese ListBox hat ist aus dem Coding leider nicht ersichtlich; mit TextBox & Commandbutton funktioniert das etwa so:
Code:
Private Sub CommandButton3_Click()

Dim rng As Range

If Trim(Me.TextBox1.Value) & "" <> "" Then
  With ThisWorkbook.Worksheets("Daten")
    Set rng = .Columns(1).Find(Me.TextBox1.Value, LookIn:=xlValues)
    If Not rng Is Nothing Then
      rng.EntireRow.Delete shift:=xlUp
    End If
  End With
End If

Set rng = Nothing

End Sub

HTH,
Eric
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jul 2009, 08:25
Rufname:

AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Hallo Eric,

http://www.office-loesung.de/ftopic320400_0_0_asc.php Crying or Very sad

_________________
Rückmeldung wäre nett.

Gruß Stefan
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Jul 2009, 09:34
Rufname: Phelan

AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

@Elvis

kannst du mir das erklären:
Code:
If Trim(Me.TextBox1.Value) & "" <> "" Then

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Elvis_the_King
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jul 2009, 13:56
Rufname:


AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

@Glücksritter76

Das ist eine "Gürtel & Hosenträger"-Variante der Überprüfung, ob ein leerer String vorliegt (die ich mir in Access-VBA irgendwann angewöhnt habe).

Hintergrund ist, dass die Trim-Funktion auch den Rückgabewert Null haben kann - vgl. Hilfe.

Wenn man z.B. möchte, dass im Falle von Blank UND im Falle von Null in den If gelaufen wird, muss man so vorgehen, weil ER ansonsten in den Else-Zweig läuft.

Beispiel:

Code:
Sub asdf()

If Trim(Null) = "" Then
  MsgBox "Bin im If", vbInformation, "Erster If"
Else
  MsgBox "Bin im Else", vbInformation, "Erster If"
End If

If Trim(Null) & "" = "" Then
  MsgBox "Bin im If", vbInformation, "Zweiter If"
Else
  MsgBox "Bin im Else", vbInformation, "Zweiter If"
End If

End Sub


HTH,
Eric
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Jul 2009, 14:09
Rufname: Phelan

AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Muss man das verstehen... aber wie kann denn eine Null aus der
TextBox zurückgegeben werden?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Elvis_the_King
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jul 2009, 14:16
Rufname:

AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Aus einer Textbox gar nicht - aus einer String-Variablen sehrwohl.

Hier funzt es also ganz sicher auch per...
Code:
If Trim(Me.TextBox1.Value) <> "" Then


Das ist wg. Access-VBA-Vorbelastung so in Fleisch und Blut übergegangen - ich kuck da schon gar nicht mehr hin Wink
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Jul 2009, 14:24
Rufname: Phelan

AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Ist Null und Empty das gleiche?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Elvis_the_King
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jul 2009, 14:57
Rufname:

AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

Nein, das ist nicht das gleiche:
Code:
Sub asdf()

Dim var1

var1 = Null

MsgBox IsEmpty(var1)

End Sub

Eine Variant-Variable ist so lange Empty, bis diese initialisiert worden ist. In diesem Beispiel gibt die MsgBox False zurück, weil die Variant-Variable var1 mit Null initialisiert wurde.

Ist das nicht schön? Wink

Zur Vertiefung:

Fabulous Adventures In Coding: A Whole Lot Of Nothing

Oder auch der fabulöse Wikipedia-Beitrag zum Thema Nullwert:
http://de.wikipedia.org/wiki/Nullwert
Liest sich für mich ein bisschen wie der Anfang des Johannes-Evangeliums - den kapier ich auch nicht.

So long,
Eric
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Jul 2009, 16:55
Rufname: Phelan


AW: Zeile Löschen klappt nicht - AW: Zeile Löschen klappt nicht

Nach oben
       Version: Office 2007

...oder die VBA-Hilfe.

Ich steig da noch nicht ganz durch, weiss auch nicht wozu man die Sachen
benötigt.

Wieso einer Variablen Null zuweisen, was will man damit nur bezwecken?
Sollte öfters mal in die Kirche gehen - ist vielleicht mal Thema in einer
Predigt Surprised

Edit:
In der Datenbank machts Sinn bzw. ist erforderlich

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Wenn Bedingung Zeile kopieren 1 marco1 1634 28. Jul 2005, 14:04
Günni Wenn Bedingung Zeile kopieren
Keine neuen Beiträge Excel Formeln: Löschen von Wörtern in einem Satz 3 MartinJungwirth 795 13. Jul 2005, 15:51
MartinJungwirth Löschen von Wörtern in einem Satz
Keine neuen Beiträge Excel Formeln: farbig markierte zeilen löschen 4 m0rph 4295 24. Jun 2005, 14:21
Gast farbig markierte zeilen löschen
Keine neuen Beiträge Excel Formeln: Excel Verknüpfungen löschen 9 Acidcool73 15705 15. Jun 2005, 16:03
Gast Excel Verknüpfungen löschen
Keine neuen Beiträge Excel Formeln: automatisch eine zeile einfügen... 4 nichtswisser 2156 17. Mai 2005, 10:36
fl618 automatisch eine zeile einfügen...
Keine neuen Beiträge Excel Formeln: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren 2 Unregistered7 1556 05. Mai 2005, 22:32
Gast Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren
Keine neuen Beiträge Excel Formeln: Leere Zeilen vom Kombinationsfeld löschen 5 sifak 1332 19. Apr 2005, 17:11
Hübi Leere Zeilen vom Kombinationsfeld löschen
Keine neuen Beiträge Excel Formeln: Gibt es eine Formel mit der man Zeilen löschen kann? 5 kara ben nemsi 1956 15. Apr 2005, 10:19
Kuwe Gibt es eine Formel mit der man Zeilen löschen kann?
Keine neuen Beiträge Excel Formeln: Formel für Zusammenzählen jeder zweiten Zelle einer Zeile 2 toto_225 814 11. März 2005, 12:04
toto_225 Formel für Zusammenzählen jeder zweiten Zelle einer Zeile
Keine neuen Beiträge Excel Formeln: Summe mit automat. Hochzählen der Zeile 7 Excellehrling_Tom 1544 09. März 2005, 15:40
Excellehrling_Tom Summe mit automat. Hochzählen der Zeile
Keine neuen Beiträge Excel Formeln: Zeile einfügen mit Formel oder Makro? 2 original-m 2246 21. Feb 2005, 08:09
original-m Zeile einfügen mit Formel oder Makro?
Keine neuen Beiträge Excel Formeln: Verknüpfung zu anderer xls-Datei löschen 3 cerkens78 1745 19. Jan 2005, 12:46
Kuwe Verknüpfung zu anderer xls-Datei löschen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen