Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe clear Content und Zeileneingabe

Forumthread: Hilfe clear Content und Zeileneingabe

Hilfe clear Content und Zeileneingabe
Maris
Hallo zusammen,
ich möchte einen Button generieren der mir in einer bestimmten Zeile die Zelleninhalte löscht. Die Zeile soll per MsgBox vorher abgefragt werden und es sollen nur die Zellen gelöscht werden die keine Formeln beinhalten. Der Spaltenbereich geht immer von B:BH. Danach soll in die Zellen der gleichen Zeile ein Text/Wert geschrieben werden. Mit meinen beschränkten Makrokenntnissen habe ich mal folgendes zusammengebastellt. Bitte um Hilfe bei der Anpassung von diesem Code.

Private Sub CommandButton1_Click()
On Error Resume Next
Frage = MsgBox("Welche Zeile soll gelöscht werden?", 1)
'zeilen kommando Bereich für die Spalten B:BH
[B:BH].SpecialCells(2, 23).ClearContents
'einfügen von Text und übergabe Zeile
Range("S,AY").Value="01/01/2100"
Range("V, AS:AT,BF").Value="NO"
Range("AD").Value="0%"
Range("AE:AF").Value="-"
Range("AI, AK:AL").Value="finance"
Range("V").Value="0,00"
End Sub
ich danke schon mal im Vorraus!
Lg,
Maris
Anzeige
Wie soll hierbei die Zeile angegeben wdn,...
12.11.2010 15:20:55
Luc:-?
…Maris…?
Nimm InputBox!
Gruß Luc :-?
AW: Wie soll hierbei die Zeile angegeben wdn,...
12.11.2010 16:40:34
Maris
War jetzt mal nur von mir zusammengeschustertes... Klar inputbox wäre die Lösung. DANKE!
Aber den Code kann ich leider nicht anpassen :-(
Gruß,
Maris
AW: Wie soll hierbei die Zeile angegeben wdn,...
12.11.2010 17:03:33
Ralf_P
Hi Maris,
nimm Application.InputBox
Wenn Type=8, kann der Benutzer den Bereich od. die Zeilen direkt auswählen.
Sub test()
Set myCell = Application.InputBox( _
prompt:="Select a cell", Type:=8)
myCell.SpecialCells(2, 23).ClearContents
End Sub
VG, Ralf
Anzeige
AW: Wie soll hierbei die Zeile angegeben wdn,...
12.11.2010 17:33:22
Maris
Klappt leider bei mir nicht... Wie kann ich das mit dem einfügen der WErte auch noch umsetzten?
Gruß
Maris
AW: Wie soll hierbei die Zeile angegeben wdn,...
12.11.2010 20:47:08
Gerd
Hallo Maris,
falls die Zellen zum Inhalt-löschen u. die Einfügezellen identisch sind, kannst Du die Zeile mit ClearContents weglassen.
Private Sub CommandButton1_Click()
On Error Resume Next
Dim lngZeile As Long
'zeile kommando Bereich für die Spalten B:BH
lngZeile = Int(Application.InputBox("Welche Zeile soll gelöscht werden?", Type:=1))
If lngZeile  Rows.Count Then Exit Sub
Cells(lngZeile, 2).Resize(1, 59).SpecialCells(2, 23).ClearContents
'einfügen von Text und übergabe Zeile
Intersect(Rows(lngrow), Range("S,AY")).Value = "01/01/2100"
Intersect(Rows(lngrow), Range("V, AS:AT,BF")).Value = "NO"
Intersect(Rows(lngrow), Range("AD")).Value = "0%"
Intersect(Rows(lngrow), Range("AE:AF")).Value = "-"
Intersect(Rows(lngrow), Range("AI, AK:AL")).Value = "finance"
Intersect(Rows(lngrow), Range("V")).Value = "0,00"
End Sub
Gruß Gerd
Anzeige
AW: Wie soll hierbei die Zeile angegeben wdn,...
15.11.2010 09:01:52
Maris
Hallo Gerd,
vielen Dank für deine Hilfe beim Code. Das Löschen funktioniert einwandfrei :-)!!! Spitze! Leider werden mir aber die Werte nicht in die Zellen geschrieben. An was könnte das liegen?
Gruß
Maris
AW: Wie soll hierbei die Zeile angegeben wdn,...
15.11.2010 20:25:07
Gerd
Hallo Maris,
ja klar, ich sollte schon die richtigen Variablennamen verwenden und ....
Ersetze diesen Teil damit:
'einfügen von Text und übergabe Zeile
Intersect(Rows(lngZeile), Range("S:S,AY:AY")).Value = "01/01/2100"
Intersect(Rows(lngZeile), Range("V:V,AS:AT,BF:BF")).Value = "NO"
Intersect(Rows(lngZeile), Range("AD:AD")).Value = "0%"
Intersect(Rows(lngZeile), Range("AE:AF")).Value = "-"
Intersect(Rows(lngZeile), Range("AI:AI, AK:AL")).Value = "finance"
Intersect(Rows(lngZeile), Range("V:V")).Value = "0,00"
Wobei du dich bei "V:V" , das 2 x auftaucht, noch entscheiden solltest.
Gruß Gerd
Anzeige
AW: Wie soll hierbei die Zeile angegeben wdn,...
16.11.2010 12:53:50
Maris
klappt! vielen Dank!
Gruß
Maris
;

Forumthreads zu verwandten Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Dateneingabe per Userform
Charlie33

Hallo zusammen.
Habe eine Exceltabelle mit 7 Spalten (Name, Vorname, Geburtsdatum, etc.).
Des weiteren befinden sich hier 4 Buttons (Neueingabe, Suchen, Ändern, Löschen).
Die Neueingabe, die Änderung und das Löschen sollen mittels Userform erfolgen.
Eine Userform und die Buttons...
11.08.2008 15:15:46
Thread-ID: 1000884
4 Beiträge
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 Beiträge
Anzeige
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Makro erst nach Eingabe weiterverarbeiten
Lars

Hallo,
ich habe in Tabellenblatt A eine CheckBox, bei der man aufgefordert werden soll, etwas in Tabelle B zu ergänzen. Nach der Eingabe soll man in Tabelle A fortfahren.
Leider erfolgt zwar der Sprung auf Blatt B, aber es geht unmittelbar zurück auf A. Wie kann ich diese Unterbrechung...
25.08.2008 17:14:27
Thread-ID: 1004514
3 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Anzeige
Eingabemaske - Zellen sind "verstreut".
Martin

Hallo zusammen!
Habe eine Kalkulationsvorlage, bei der die Eingabefelder auf dem gesamten Blatt "verteilt" sind.
Ich möchte gerne die Eingabe benutzerfreundlicher machen und diese über ein Formular/Maske
eingeben lassen.
Über die Eingabemaske hab ich es schon versucht; Mehrfac...
28.08.2008 11:59:00
Thread-ID: 1005373
2 Beiträge
Eingabemaske programmieren? Gibts das schon?
TommiH

Hallöchen,
ich habe eine Frage und zwar möchte ich mir eine Eingabemaske programmieren, die folgenden Kriterien entspricht.
- Ca. 40 Eingabefelder auf dem Bildschirm
- Jedes ca. 10-12 Zeichen lang
- Eingabezeichen sollen Zahlen und Buchstaben sein (evtl. mit Kontrolle)
- Wen...
03.09.2008 15:45:12
Thread-ID: 1007131
6 Beiträge
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
Eingabe in CboBox übergangen
Ernst

Hallo
Da wird in einer CboBox eine Eingabe gefordert und einige von den Usern übergehen diese Eingabe obwohl sie logisch und erforderlich ist.
Es geht um diese Code:
Sheets("DatStd").Activate
g = ActiveSheet.UsedRange.Rows.Count
With UserForm5.CboBoxStd
.RowSource...
08.09.2008 20:12:00
Thread-ID: 1008246
5 Beiträge
Anzeige
Werteingabe
Marcus

Hallo,
ich habe eine EXcellaufstellung über verschiedene Füllhöhen gemäß Anlage. Hier möchte ich jetzt bei meiner Auswertung in meinem Wertefenster eine Füllhöhe in cm eingeben, die Excelldatei soll mir dann automatisch das Ergebnis in l liefern. Ich möchte also nicht mehr nachschauen, wel...
09.09.2008 10:43:00
Thread-ID: 1008364
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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