Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba/Button zum Löschen von Textfeldern

Forumthread: vba/Button zum Löschen von Textfeldern

vba/Button zum Löschen von Textfeldern
13.10.2004 20:30:34
Textfeldern
Hallo!
Ich arbeite mit einer Datei auf zwei Rechnern. Einer mit NT4, der andere mit XP-Home.
Untenstehende Prozedur läuft unter NT4 mit Excel97 problemlos. Unter XP mit Excel2003 bekomme ich ständig den Laufzeitfehler 9.
Es handelt sich um einen Button zum Löschen der vorher eingegebenen Daten, da ich für einen neuen Arbeitsablauf die "geleerte" UF nutzen will.
Public 

Sub daten_loeschen() 'Alle Eingaben in Tabelle 'Daten1/Spalte C' löschen
Workbooks("Arbeit.xls").Activate
loesch = MsgBox("Alle eingegebenen Daten werden gelöscht !!. Vorgang fortsetzen ?  ", 4 + 32)
auswahl.Label1.Caption = " Löschen der Daten"
If loesch = vbYes Then
Application.Wait (Now + TimeValue("0:00:02"))
ActiveWorkbook.Worksheets("Daten1").Range("C1:C800").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("C4:D4").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("H5").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("I5").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("J5").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("G9:N9").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("I16:K16").Value = ""
Formularauswahl_loeschen
Textfelder_löschen 'Alle Textfelder in Druckformularen löschen
auswahl.Label1.Caption = ""
MsgBox ("Alle Daten wurden gelöscht !")
Else
Exit Sub
End If
End Sub

Kann mir jemand weiterhelfen?
Gruß Claudia
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba/Button zum Löschen von Textfeldern
Textfeldern
Mal abgesehen davon, dass der Code uneffektiv ist, kann man so nicht sehen, woran es liegt. Was passiert denn im Makro Formularauswahl_loeschen?
Fehler 9 bedeutet außerhalb des gültigen Bereichs, das stimmt wahrscheinlich ein Name nicht.
Bert
AW: vba/Button zum Löschen von Textfeldern
13.10.2004 20:51:59
Textfeldern
Hallo Bert!
In Formularauswahl_löschen werden Zellen im Arbeitsblatt "Optionen" von WAHR auf FALSCH gesetzt.
Public Sub Formularauswahl_loeschen()
'Formularauswahl löschen
Sheets("Optionen1").Range("C133:H133").Value = False
Sheets("Optionen1").Range("C135:H135").Value = False
Ist hier etwas falsch?
Claudia
Anzeige
AW: vba/Button zum Löschen von Textfeldern
Textfeldern
Hi Claudia,
bei mir läuft der Code auch ohne Probleme, die Fehlerursache kann also nur in
"Formularauswahl_loeschen" oder "Textfelder_löschen" liegen...
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: vba/Button zum Löschen von Textfeldern
Textfeldern
Hi Claudia,
direkt helfen kann ich dir leider nicht, deshalb Frage auf noch offen, aber habe den Code gekürzt.
Gruß
Reinhard 

Public Sub daten_loeschen() 'Alle Eingaben in Tabelle 'Daten1/Spalte C' löschen
Workbooks("Arbeit.xls").Activate
loesch = MsgBox("Alle eingegebenen Daten werden gelöscht !!. Vorgang fortsetzen ?  ", 4 + 32)
auswahl.Label1.Caption = " Löschen der Daten"
If loesch = vbYes Then
Application.Wait (Now + TimeValue("0:00:02"))
ActiveWorkbook.Worksheets("Daten1").Range("C1:C800").ClearContents
ActiveWorkbook.Worksheets("Splitwerte1").Range("C4:D4", "H5", "I5", "J5", "G9:N9", "I16:K16").ClearContents
Formularauswahl_loeschen
Textfelder_löschen 'Alle Textfelder in Druckformularen löschen
auswahl.Label1.Caption = ""
MsgBox ("Alle Daten wurden gelöscht !")
End If
End Sub

Anzeige
AW: vba/Button zum Löschen von Textfeldern
13.10.2004 20:55:47
Textfeldern
Danke Reinhard, es funzt!
Auch den anderen danke für die Beiträge!
Gruß Claudia
AW: vba/Jetzt hängt es hier!
13.10.2004 21:06:47
claudi
Hallo Reinhard, falls Du noch da bist!
Jetzt hängt es hier:
Public 

Sub Textfelder_löschen()
Workbooks("druckformulare1.xls").Sheets("Akten").TextBox1.ClearContents
End Sub

Anzeige
AW: vba/Jetzt hängt es hier!
Bert 

Sub Textfelder_löschen()
Workbooks("druckformulare1.xls").Sheets("Akten").TextBox1=""
End Sub

Bert
AW: vba/Jetzt hängt es hier!
claudi
Danke Bert!
Warum einfach, wenn es auch umständlich geht :-)
Gruß Claudi
;

Forumthreads zu verwandten Themen

VBA - Messagebox - Eingabeformular
Neo

Hallo zusammen,
ich bin gestern in die Tiefen der VBA (mittels Youtube u. Google) erstmals eingestiegen, um die Produktionsdatenerfassung über ein Eingabeformular zu standardisieren.
Soweit prima, nun möchte ich jedoch noch die Fehleranfälligkeit reduzieren.
(hierzu siehe mein Einga...
14.08.2015 13:59:04
Thread-ID: 1442348
3 Beiträge
VBA ungewollte Messagebox
Lars

Hallo ihr Forumsmitglieder,
ich habe eine vermutlich kleines VBA Problem und hoffe, dass ihr mir dabei helfen könnt.
Ich habe eine VBA Anweisung erstellt, die beim Ändern gewisser Zelleinträge zum Einen die Werte in bestimmte Zellen auf dem Tabellenblatt „Overview“ schreibt und zum Ande...
26.07.2018 21:35:31
Thread-ID: 1636151
4 Beiträge
vbyesno in msgbox
ae

hallo zusammen,
mit nachstehendem Code möchte ich abfragen ob die anwendung wirklich beendet werden soll:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
msg = MsgBox("Wollen Sie die Anwendung wirklich beenden ?", vbYesNo, "Anwendung beenden")
MsgBox (msg)
If msg = vb...
13.02.2003 11:59:51
Thread-ID: 218523
2 Beiträge
Verschiedenen Textboxen über ein Button (VBA)
Sascha

Hallo, erst einmal respekt sehr hilfreiches Forum! Aber jetzt komme ich leider nicht mehr weiter.
Ich habe ein Daten Blatt. C2 IST EIN AUSWAHLFELD!!! mit 10 möglichkeiten
Was ich möchte:
in c2 steht " Salzsäure" dann soll ich einen Button drücken wo eine MSGbox auf geht wo die R (ri...
01.01.1970 00:00:00
Thread-ID: 413375
8 Beiträge
VBA Code in Message Box
David

Hallo,
kann ich Code in einer MessageBox anzeigen lassen?
Z.B.
MsgBox(" & vbCr &
Sub Button45_Click() & vbCr & Application.Goto Reference:="Meiko" & vbCr & ActiveWindow.ScrollRow = ActiveCell.Row & vbCr & End Sub ") Vielen Dank...
01.02.2006 14:02:10
Thread-ID: 726812
4 Beiträge
VBA Userform Button Speichern und neuen Wert in Textbox
DLMuc
Hallo liebe VBA Gemeinde,

nach dem ich hier schon sehr viele Tipps, Trick's und Hilfestellungen gefunden habe, komme ich voran. Aber bei einem Problem hängt es bei mir massiv bzw. ich finde überhaupt keine Lösung und hoffe auf Unterstützung von Euch.

Istzustand:
Es besteht ein...
03.02.2024 01:19:07
Thread-ID: 1963332
3 Beiträge
VBA: bestimmtes Blatt als pdf speichern, Name Message Box
Jörg Bergmann
Hallo zusammen,

ich möchte eine bestimmtes Blatt per Knopfdruck als pdf speichern und dabei per Messagebox gefragt werden, wie der Dateiname lauten soll.

Ich habe gefühlt das ganze Internet durchsucht, aber nichts passendes gefunden.

VG
Jörg
08.04.2024 15:01:30
Thread-ID: 1972666
4 Beiträge
MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
Dieter(Drummer)
Guten Tag an alle,

dieser Code fügt aktuelles Datum in markierte Zelle und funktioniert:
Sub Datum()
ActiveCell.Select
SendKeys "^{.}", True
End Sub

Was ist an meinem Code falsch, der mit MsgBox Ja/Nein, bei Ja(OK) des aktuelle Datum einfügen soll? Bei OK kommt kein...
29.05.2024 16:49:51
Thread-ID: 1979716
15 Beiträge
Anzeige
Caption von Commandbutton dauerhaft per VBA ändern
VoVo

Schönen Sonntag Excelliste,ich hoffe mir kann jemand helfen.Für die Profis warscheinlich nur Peanuts, doch ich kriegs nicht hin.
Ich möcht per VBA 40 Commandbuttons dauerhaft neu beschriften. Im Augenblick kann ich dies schon, jedoch mit dem kleinen Schönheitsfehler, dass nach einer Weile, w...
15.12.2002 16:38:55
Thread-ID: 193368
4 Beiträge
Verschiedenen Textboxen über ein Button (VBA)
Sascha

Hallo, erst einmal respekt sehr hilfreiches Forum! Aber jetzt komme ich leider nicht mehr weiter.
Ich habe ein Daten Blatt. C2 IST EIN AUSWAHLFELD!!! mit 10 möglichkeiten
Was ich möchte:
in c2 steht " Salzsäure" dann soll ich einen Button drücken wo eine MSGbox auf geht wo die R (ri...
01.01.1970 00:00:00
Thread-ID: 413375
8 Beiträge
Name eine Commanbutton per VBA ändern
Marc

Hallo alle zusammen,
ich habe eine Datei, in der ich durch einen Commandbutton eine Reihe von Anweisungen ausführen lasse. Eine neue Seite wird erstellt und am Ende wird auch der Button nach unten ans Seitenende verschoben. Ich habe versucht ihn durch eine entsprechende Routine in VBA versc...
31.05.2005 16:24:33
Thread-ID: 618171
7 Beiträge
VBA Userform Button Speichern und neuen Wert in Textbox
DLMuc
Hallo liebe VBA Gemeinde,

nach dem ich hier schon sehr viele Tipps, Trick's und Hilfestellungen gefunden habe, komme ich voran. Aber bei einem Problem hängt es bei mir massiv bzw. ich finde überhaupt keine Lösung und hoffe auf Unterstützung von Euch.

Istzustand:
Es besteht ein...
03.02.2024 01:19:07
Thread-ID: 1963332
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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