Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
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
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen hinzufügen bei allen markierten Felder

Forumthread: Zeichen hinzufügen bei allen markierten Felder

Zeichen hinzufügen bei allen markierten Felder
25.06.2018 16:53:39
Lilli
Hallo ihr lieben,
ich bräuchte bitte einen Makro, wo die Markierten Felder, die bereits eine Formel enthalten, durch ein Hochkomma ' am Anfang einsetzt und dadurch die Formeln ausgesetzt werden.
Ein suchen-ersetzen Makros, der die =Zeichen in '= umstellt ist nicht hilfreich. Fast alle Formeln enthalten innerhalb der Formeln weitere = Zeichen.
Und bitte ein zweites Makros, der das ganze rückgängig macht bzw den ersten Zeichen aus dem markierten Felder raus nimmt.
Ich bin über jede Hilfe sehr dankbar.
vielen Dank für die Mühe im Voraus.
Liebe Grüße,
Lilli
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen hinzufügen bei allen markierten Felder
25.06.2018 17:14:17
EtoPHG
Hallo Lilli,
Probier mal: 
Sub Formula2Text()
Dim rc As Range
If TypeName(Selection) = "Range" Then
For Each rc In Selection.Cells
If rc.HasFormula Then rc.Formula = Replace(rc.Formula, "=", "'##", , 1)
Next rc
End If
End Sub
Sub Text2Formula()
Dim rc As Range
If TypeName(Selection) = "Range" Then
For Each rc In Selection.Cells
If Left(rc.Value, 2) = "##" Then rc.Formula = Replace(rc.Text, "##", "=", , 1)
Next rc
End If
End Sub
Gruess Hansueli
Anzeige
AW: Zeichen hinzufügen bei allen markierten Felder
25.06.2018 18:23:04
Lilli
Hallo Hansueli,
vielen lieben Dank für deine Hilfe. Das hat sehr gut geklappt. Allerdings habe ich gemerkt, dass die Formeln bzw. die Funktionen auf einmal in Englischer Sprache sind. Da verstehe ich noch weniger als vorher ;)
Beim Text2Formula ändern sich die Funktionen ins Deutsche. Was muss ich tun, damit die Befehle weiterhin in Deutsch bleiben, wenn ich Formula2Text ausführe?
vielen Dank für die Mühe und Feedback im Voraus.
Liebe Grüße,
Lilli :)
Anzeige
AW: Zeichen hinzufügen bei allen markierten Felder
25.06.2018 18:43:24
EtoPHG
Hallo Lilli,
Die rc.Formula jeweils durch rc.FormulaLocal ersetzen.
Gruess Hansueli
AW: Zeichen hinzufügen bei allen markierten Felder
26.06.2018 07:57:42
Lilli
Hallo Hansueli,
das habe ich gemacht. Formula2Text funktioniert einwandfrei. Wenn ich das aber Rückgängig mache, werde alle Formel gelöscht.
hier der aktuelle Code: 
Sub Formula2Text()
Dim rc As Range
If TypeName(Selection) = "Range" Then
For Each rc In Selection.Cells
If rc.HasFormula Then rc.FormulaLocal = Replace(rc.FormulaLocal, "=", "'##", , 1)
Next rc
End If
End Sub


Sub Text2Formula()
Dim rc As Range
If TypeName(Selection) = "Range" Then
For Each rc In Selection.Cells
If Left(rc.Value, 2) = "##" Then rc.FormulaLocal = Replace(rc.Text, "##", "=", , 1)
Next rc
End If
End Sub

Vielen Dank für das Feedback.
Liebe Grüße,
Lilli
Anzeige
AW: Zeichen hinzufügen bei allen markierten Felder
26.06.2018 07:59:04
Lilli
Kontrollkästen aktivieren vergessen ;)
Kann ich nicht reproduzieren...
26.06.2018 08:07:34
EtoPHG
Hallo Lilli,
Dein beschriebenes Verhalten, kann ich nicht reproduzieren.
Bei mir funktionieren die beiden Codes einwandfrei!
Ich wäre als auf eine Mappe angewiesen, die dieses zeigt.
Gruess Hansueli
AW: Kann ich nicht reproduzieren...
26.06.2018 09:52:00
Lilli
Hallo Hansueli,
vielen dank für den Hinweis.
https://www.herber.de/bbs/user/122328.xlsx
Das ist eine Tabelle von der Gesamtmappe. Ich hoffe, das reicht.
vielen Dank für die Mühe
und viele liebe Grüße,
Lilli :)
Anzeige
AW: Kann ich nicht reproduzieren...
26.06.2018 11:04:33
EtoPHG
Hallo Lilli,
Was soll ich dazu sagen? Ich würde mich zuerst um die BEZUG-Fehler kümmern, bevor ich solche Makros einsetze. Aber anyway, versuch es halt mal so: 
Option Explicit
Sub Formula2Text()
Dim rc As Range
If TypeName(Selection) = "Range" Then
For Each rc In Selection.Cells
If rc.HasFormula Then rc.FormulaLocal = Replace(rc.FormulaLocal, "=", "##", , 1)
Next rc
End If
End Sub
Sub Text2Formula()
Dim rc As Range
If TypeName(Selection) = "Range" Then
For Each rc In Selection.Cells
If Not IsError(rc.Value) Then
If Left(rc.Value, 2) = "##" Then _
rc.FormulaLocal = Replace(rc.Value, "##", "=", , 1)
End If
Next rc
End If
End Sub
Code in ein allgemeines Modul.
Gruess Hansueli
Anzeige
P.S. Alle Ausdrücke, in beiden Makros! (owT)
25.06.2018 19:20:34
EtoPHG

;

Forumthreads zu verwandten Themen

markierten Zellbereich schützen
reiner

Hallo Leute,
per Makro wird ein Zellbereich festgelegt und markiert für weitere Auswertungen.
Wenn nun versehentlich in irgendeine Zelle des markierten oder nicht markierten Bereich geklickt wird ist die vorherige Markierung nicht mehr vorhanden.
Der Bereich wird wie folgt markiert...
23.08.2008 17:10:33
Thread-ID: 1004136
3 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Makro an der markierten zelle beginnen
Werner

Hallo, ich habe ein kleine Makro aufgezeichnet und dazu 2 Fragen. Hier erst einmal das makro: Sub Doppelpass() ' Doppelpass Makro ' Makro am 22.09.2008 von gf aufgezeichnet ' Tastenkombination: Strg+d Range("G5:G8").Select Selection.Copy Application.CutCopyMode = False Selection.ClearContents...
22.09.2008 15:32:12
Thread-ID: 1011505
13 Beiträge
Per Knopfdruck markierte Zeile kopieren
Pascal

Ich möchte per Makro folgendes tun:
Die gerade markierte Zeile soll komplett kopiert - und auf einem anderen Tabellenblatt in die nächste freie Zeile kopiert werden.
wie müsste da ein Beispielscode dazu lauten ?
Beispiel:
die Zelle B1 auf dem Tabellenblatt1 ist aktiviert.
Au...
23.09.2008 15:19:26
Thread-ID: 1011771
4 Beiträge
erstes Leerzeichen im markierten Bereich löschen
Lemmi

Hallo zusammen,
wie kann ich in einem markierten Bereich das erste Leerzeichen vor dem ersten Wort über ein Marko löschen!
Es soll nur vor dem ersten Schriftzeichen die Leerstelle gelöscht werden. Alle weiteren Leerzeichen sollen in der Zellen erhalten bleiben!
Gruß
Lemmi
25.09.2008 12:25:00
Thread-ID: 1012296
9 Beiträge
Formatierungen bei mehreren markierten Zellen
Thorsten

Hallo,
ich lasse über ein Marko verschiedene Zellen markieren. In diese Zellen sollen Buchstaben eingetragen werden. Als bedingte Formatierung ist z.B. angegeben, dass er bei einem "U" die Zelle grün macht. Das Problem ist, er bedient die Formatierung nur, wenn nur eine Zelle markiert ist....
25.09.2008 15:33:00
Thread-ID: 1012356
3 Beiträge
markiertes Drucken
Reinhardt

Hallo.
Ich habe in einer Tabelle untereinander viele, viele, viele DIN A4 Pläne gleicher Größe.
Möchte ich einen ausdrucken, markiere ich den Bereich bzw. das DIN A4 Blatt..
Mein Problem:
kleinste Veränderungen in der Spaltenbreite bewirken irgendwie, das ich auf einmal 2 Seiten...
23.10.2008 09:47:54
Thread-ID: 1018521
2 Beiträge
alle markierten ellen sollen den gleichen Inhalt
Danneberg

Hallo Excel-Freunde,
ich bastle gerade an einer Anwesenheitsliste. Die Nutzer sollen z.B. die Möglichkeit haben, einen bestimmten Bereich zu markieren (bspw. B8:B20) und durch drücken der Tastenkombination Strg.+Umsch+K soll in jeder Zelle dieses Bereiches ein "K" eingetragen werden. Leider...
03.03.2009 13:51:17
Thread-ID: 1055968
2 Beiträge
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 Beiträge
Objekte löschen im markiertem Bereich
Micha

Hallo liebe Spezis,
hier im Forum habe ich folgenden Code zum löschen von Objekten gefunden.
Das klappt auch Prima, ich möchte allerdings das die Objekte NUR im markierten Bereich gelöscht werden.
Sub Loesch() Dim s As Shape For Each s In ActiveSheet.Shapes s.Delete Next End Sub <...
11.03.2009 17:10:35
Thread-ID: 1059214
4 Beiträge
Hinweis bei Eingabe einer farbig markierten Zahl
Harald

Hallo,
habe eine Tabelle mit Maschinennummern. Die z. Zt. defekten Geräte markiere ich rot. Auf einer zweiten
Tabelle ordne ich die Geräte einzelnen Mitarbeitern zu. Nun möchte ich bei versehentlicher Eingabe einer der
rot markierten Gerätenummern die Meldung "Gerät defekt" erhalte...
28.03.2009 11:25:14
Thread-ID: 1064850
12 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