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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nur für markierten Zellen

Forumthread: Makro nur für markierten Zellen

Makro nur für markierten Zellen
19.12.2002 12:33:22
Dzana
Hallo,

ich habe hier im Forum ein Makro gefunden den ich auch benutzen könnte. Es soll aber ein bißchen geändert werden und zwar das Makro soll nur für markierten Zellen ausgeführt werden:

Sub MX()
For i = 1 To Range("A65536").End(xlUp).Row Step 1
Cells(i, 1).Activate
If Len(ActiveCell.Value) = 5 Then
text1 = ActiveCell.Value
text2 = Left(text1, 2) & " 0" & Right(text1, 2)
If Left(text1, 2) = "MX" Then Cells(i, 1).Value = text2
End If
Next i
End Sub

Was muß geändert werden?

Danke im voraus....

Gruß
Dzana

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro nur für markierten Zellen
19.12.2002 12:41:13
Hajo_Zi
Hallo Dzana


Option Explicit

	

Sub MX()

	Dim ObZelle As Object

	Dim Text1

	Dim text2

	For Each ObZelle In Selection

		If Len(ObZelle.Value) = 5 Then

			Text1 = ObZelle.Value

			text2 = Left(Text1, 2) & " 0" & Right(Text1, 2)

			If Left(Text1, 2) = "MX" Then ObZelle.Value = text2

		End If

	Next ObZelle

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein


Gruß Hajo

Anzeige
Re: Makro nur für markierten Zellen
19.12.2002 13:09:50
Dzana
Vielen vielen Dank Hajo.....

Gruß
Dzana

;

Forumthreads zu verwandten Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Anzeige
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Anzeige
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Nur markierte Zellen verarbeiten
MaxKuba

Hallo Excel Spezialisten
könnt Ihr mir bitte helfen diesen Code so umzuwandeln das nur bei den markierten Zellen die Formel ifserror eingefügt wird?
Sub NA_raus() Dim rng As Range, cell As Range, fmla As String Set rng = Cells.SpecialCells(xlCellTypeFormulas, 16) For Each cell In rng fm...
21.04.2010 10:35:12
Thread-ID: 1153059
16 Beiträge
Leere Zeilen nicht drucken. Makro optimieren
chandler

Hallo,
das Makro durchsucht Bereiche und blendet Zeilen aus, wenn in Spalte C die Zellen leer sind um dann das Blatt zu drucken.
Sub print_n() Dim iCol As Integer Dim i As Integer Dim iRow As Integer Dim iRowL As Integer Dim i2 As Integer Dim iRow2 As Integer Dim iRowL2 As Integer iCol...
04.01.2012 14:21:35
Thread-ID: 1244557
10 Beiträge
Werte nur in Markierten Zellen ändern
Valeri

Hallo ihr Allwissenden,
mit folgendem Code ändere ich markierte Zellen:
Sub Zelle_Urlaub_rot() Application.ScreenUpdating = False Dim c As Range For Each c In Selection If Not (IsEmpty(c)) Then c.FormulaR1C1 = "U" c.Interior.Color = 255 End If Next c Application.ScreenUpdating = True En...
13.08.2012 08:49:38
Thread-ID: 1274803
6 Beiträge
Makro nur auf markierte Zellen anwenden
Günther

Hallo zusammen,
ich brauche mal wieder eure Hilfe.
Ich habe eine Makro gefunden welches entweder alle Zellen mit Formeln mit ISTFEHLER erweitert (→ 16) oder aber nur die Zellen die einen Fehler aufweisen (→ 23)
Wie muss ich dieses Markro ergänzen, damit es nur auf die momentan marki...
22.06.2013 14:49:57
Thread-ID: 1319109
4 Beiträge
Ausgeblendete Zeilen nicht berechnen
Robert

Hallo Zusammen,
ich habe zwei Datenblätter. Im ersten mache ich eintragungen, die ich später ggf. nach Datum filtern möchte.
Im zweiten Datenblatt habe ich folgende Formel:
=WENN(UND(INDEX(Eingabe!$D:$D;ZEILE()-4)=A$5;INDEX(Eingabe!$E:$E;ZEILE()-4)=$A$3);1)
Wenn im ersten Daten...
17.12.2014 10:22:25
Thread-ID: 1398541
7 Beiträge
nur markierte datensätze drucken
detlef

Hallo Excelprofis,
ich hab mal wieder eine Herausforderung an der ich verzweifel.
Auf Tabellenblatt 1 habe ich Zeilen mit Datensätze (ca. 100 Stück)
Auf Tabellenblatt 2 soll per sverweisein ein Formular mit den Daten der Zeilen aus Tabellenblatt 1 ausgefüllt werden.
Zur Zeit ruf...
06.10.2016 20:21:19
Thread-ID: 1518394
2 Beiträge
Anzeige
VBA; nur verschiedene markierte Zellen kopieren
Bernd

Hallo zusammen,
Benötige Hilfe bei folgendem Problem.
1.Kopiere markierte Zellen aus Spalte B3:B7, D3:D7, F3:F7, H3:H7.
2. Füge kopierte Zellen in Tabelle2 ab A3 abwärts ein
Die markierten Zellen in den Spalten variieren von der Anzahl und zwar kann z.B. in Spalte B drei Zellen,...
07.10.2017 17:54:51
Thread-ID: 1584648
13 Beiträge
Aufrunden auf 0,5 und nur in markierten Zellen?
Stefanie

Servus,
ich hab ein altest Makro ausgegraben das nicht tut was ich mir vorstelle.
Ich möchte das alle markierten Zellen, wenn Sie kleiner 0,5 sind auf 0,5 aufgerundet werden.
Wie würde das am kürzesten als Makro aussehen?
Danke euch
30.07.2018 20:41:26
Thread-ID: 1636676
5 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