Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ersetzen wenn gefüllt?

Forumthread: Makro ersetzen wenn gefüllt?

Makro ersetzen wenn gefüllt?
Julia
Hallo,
ich bekomm folgendes Makro nicht hin:
wenn eine zelle in spalte "F" NICHT leer ist, dann den Inhalt mit einer "1" überschreiben (ersetzten)
Ist eine Zelle in F leer dann soll sie weiterhin leer bleiben
Anzeige

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

Betreff
Benutzer
Anzeige
if Cells(lngZ,"F")<>"" then Cells(lngZ,"F")=1
03.11.2009 16:54:44
NoNet
Hallo Julia,
falls Du die Zellen per Schleife (Schleifenzähler lngZ) überprüfst, dann nach folgendem Schema :
if Cells(lngZ,"F")"" then Cells(lngZ,"F")=1
Falls Du damit nicht klarkommst, poste bitte mal den kompletten vorhandenen Code (oder besser : Lade die Datei hoch).
Gruß, NoNet
Anzeige
AW: Makro ersetzen wenn gefüllt?
03.11.2009 16:54:56
Original
Hi,
Columns("F:F").Replace What:="*", Replacement:="1"
mfg Kurt
Und wenn das LEER ("") durch eine Formel entstand?
03.11.2009 17:07:41
NoNet
Hey Kurt,
eine einfache Lösung - aber nur, wenn mit LEER keine "" gemeint sind, die durch eine Formel/Funktion resultierten (z.B. : =WENN(1+1=2;"";"X") ) - diese würden dann auch durch "1" ersetzt werden !
Gruß, NoNet
Anzeige
geile Formel ;o) oT
03.11.2009 17:09:39
Matthias
Zelle mit Formel kann nicht leer sein! oT
03.11.2009 17:13:04
Original
ot
welches Makro ?
03.11.2009 16:58:54
Matthias
Hallo
Zitat:
ich bekomm folgendes Makro nicht hin:
? welches Makro meinst Du denn ? hab keins gefunden !
Sub Ersetzen()
Dim x As Long
For x = 1 To 10 '"F1:F10" Bereich anpassen
If Not IsEmpty(Cells(x, 6)) Then Cells(x, 6) = "1"
Next
End Sub
Gruß Matthias
Anzeige

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
SUMMENPRODUKT in VBA übersetzen
Olaf

Hallo Leute,
ich habe versucht, folgende "SummenProdukt" Formel:
=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)
ins VBA zu übersetzen:
WorksheetFunction.SumProduct((Range("A1:A1000") = Range("A" & EEE)) * (Range("C1:C1000") = Range("C" & EEE)), Range("U1:U1000"))...
28.08.2008 15:03:42
Thread-ID: 1005459
4 Beiträge
Dinge in Abhängigkeit ersetzen
sascha76er

Hallo,
ich möchte gerne in der Spalte B den Wert "[#p Stück]" durch -Links- oder -Rechts- in Abhängigkeit vom letzten Buchstaben in der Artikelnummer entsprechend ersetzen.
Kann mir jemand sagen wie dies lösen kann?
Hier meine Datei: https://www.herber.de/bbs/user/55000.xls
Gru...
28.08.2008 16:25:34
Thread-ID: 1005516
2 Beiträge
Anzeige
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Ersetzen mit Bedingung in VBA
bully

Hallo zusammen,
ich möchte mit VBA alle Werte in der Spalte G (Standardwert "300") mit einer 1 ersetzen, wenn in der gleichen Zeile der Spalte F eine 2 (Standardwert "1") steht.
Wie mache ich das am einfachsten.
Gruss bully
07.09.2008 20:41:15
Thread-ID: 1008002
3 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 19:55:29
Thread-ID: 1014539
7 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 20:18:00
Thread-ID: 1014553
3 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Mail-Adressen ersetzen
dani

Hallo zusammen,
ich habe ein Excel-Problem - ich hoffe, jemand kann mir weiterhelfen :)
In einer Excel-Datei habe ich eine Spalte mit Mail-Adressen, z.B. max.mustermann@firma_x.de
Da sich die Firmierung geändert hat, müssen sämtliche Domainnamen geändert werden in max.mustermann@fir...
15.10.2008 09:39:22
Thread-ID: 1016481
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige