Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit VBA bestimmte Zellen suchen und ändern

mit VBA bestimmte Zellen suchen und ändern
16.07.2014 10:37:46
Kempel
Hallo zusammen, ich hab folgendes Problem:
Ich möchte mit hilfe VBA-Schleife alle Zellen die "abc" enthalten raussuchen und den Inhalt der 2 benachbarten rechten Zellen ändern.
z.B. wenn A1= "abc", dann A2= "cba" und A3="bca"
wenn B1= "abc", dann B2= "cba" und B3="bca"
wenn C1= "abc", dann C2= "cba" und C3="bca"
usw.
Hoffe auf eure Hilfe.
Grüße Andre

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

Betreff
Datum
Anwender
Anzeige
AW: mit VBA bestimmte Zellen suchen und ändern
16.07.2014 11:27:39
Christian
Hallo Andre,
benachbarte rechte Zellen sind aber nicht A2 und A3, sonder die sind ja untereinander.
Ein Ansatz, wobei im Archiv unzählige Bsp. zu finden sind!
Sub abc()
Dim a As Long, b As Long
b = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For a = 1 To b
If Cells(1, a) = "abc" Then
Cells(2, a) = "cba"
Cells(3, a) = "bca"
End If
Next a
Application.ScreenUpdating = True
End Sub
MfG Christian

AW: mit VBA bestimmte Zellen suchen und ändern
16.07.2014 12:50:01
Kempel
Hallo Christian, danke für deine Antwort.
Es tut mir leid,- ich habe ein falsches Beispiel gemacht.
Es soll so aussehen:
wenn A1= "abc", dann B1= "cba" und C1="bca"
wenn A2= "abc", dann B2= "cba" und B3="bca"
wenn A3= "abc", dann B3= "cba" und C3="bca"
usw.
Vielen Dank im Voraus!
Andre

Anzeige
AW: mit VBA bestimmte Zellen suchen und ändern
16.07.2014 13:00:17
Christian
Hallo Andre,
dann einfach die zeilen mit den Spalten tauschen:
Sub abc()
Dim a As Long, b As Long
b = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For a = 1 To b
If Cells(a, 1) = "abc" Then
Cells(a, 2) = "cba"
Cells(a, 3) = "bca"
End If
Next a
Application.ScreenUpdating = True
End Sub
MfG Christian

AW: mit VBA bestimmte Zellen suchen und ändern
17.07.2014 11:47:50
Kempel
Hallo Christian, vielen Dank! funktioniert hervorragend!!!
mal andere Fragen:
-wie kann mann prüfen, ob die zelle bestimten Inhalt hat?
z.B. A1=" hallo world ". ich möchte aber wissen, ob A1 das wort "hallo" beinhaltet? und dann die andere Zelle ändern:
wenn A1 beinhaltet "hallo", dann B1="cba".
-und wie kann mann mit MINUS-Zeichen die Zahl in Spalte ergänzen:
z.B. A1="hallo world", I1=235,00
wenn A1 = "hallo world", dann I1="-235,00".
ich habe dafür folgende Code eingegeben, ich glaube aber, dass eine "elegante Lösung" dafür gibt's
If Cells(a, 1) = "hallo world" Then
Cells(a, 10) = -Cells(a, 9)
End If
Vilen Dank im Voraus!
Andre

Anzeige
AW: mit VBA bestimmte Zellen suchen und ändern
17.07.2014 12:31:42
Christian
Hallo Andre,
mit 
 If Cells(a, 1) Like "*hallo*" Then
kannst Du auf hallo prüfen.
Zu Deiner anderen Frage wäre noch zu berücksichtigen, ob summiert oder nur ersetzt werden soll.
MfG Christian

AW: mit VBA bestimmte Zellen suchen und ändern
18.07.2014 11:52:32
Kempel
Hallo Christian, vielen Dank! mit Like funktioniert super!
zu anderer Frage: es soll einfach ersetzt werden, nicht summiert.
Vorgabe:
A1="hallo world", I1=235,00
Lösung:
wenn A1 = "hallo world", dann I1="-235,00".
Vielen Dank im Voraus und schönes Wochenende!
Andre

333 Forumthreads zu ähnlichen Themen

VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
Excel Farbe der selektierten Zellen ändern
lupo

Guten Morgen,
ein Arbeitskollege möchte gerne die Farbe der ausgewählten / markierten Zellen ändern.
Zu dem Thema habe ich viel gegoogelt. An verschiedenen Stellen wird behauptet das würde nicht gehen.
Dann habe ich diese Video gefunden:
http://www.bukisa.com/videos/22842_mrexce...
07.08.2009 10:05:24
Thread-ID: 1094211
4 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Anzeige
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
3
4
2
15
2
5
6
17
4
14
7
2
3
11
5
2
2
2
3
3
2
6
6