Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mittels VBA in Spalte suchen;Zellen in Zeile erset

Mittels VBA in Spalte suchen;Zellen in Zeile erset
cirilfab
Hallo zusammen,
Habe ein File mit einer UserForm. Dor kann ich die Bestandteile einer Liste (Spalte A) per dropdown anwählen. Nun möchte ich, wenn eine checkbox in der UserForm angewählt wird, dass nach dem ausgwähltem Bestandteil in der USerform gesucht wird und alle in der gleichen Zeile, wie das Ergebniss, befindliche "x" gegen "-" ausgetauscht werden. Leider tauschts bei mir alle in der Tabelle "x" gegen "-". Was mach eich falsch?
Private Sub Checkbox2_Click()
If ComboBox1.Value = "" Then
MsgBox "Bitte betroffenes Dokument anwählen!", vbExclamation
CheckBox2.Value = False
Else
If CheckBox2.Value = True Then
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
Dim a As Variant
a = 0
If ComboBox1.Value = Cells(i, 1) Then
a = Cells(i, 4)
Cells.Replace What:="x", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows
End If
Next
Sheets("Eingabemaske").Activate
End If
End If
End Sub

Danke für die Hilfe.

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

Betreff
Benutzer
Anzeige
AW: Mittels VBA in Spalte suchen;Zellen in Zeile erset
11.06.2012 16:18:17
Hajo_Zi
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
nach
Cells.Replace What:="x", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows
könnte Exit For da Du es schion in der gesamten Tabelle ersetzt hast.

AW: Mittels VBA in Spalte suchen;Zellen in Zeile erset
11.06.2012 16:33:05
KlausF
Hallo cirilfab,
wenn ich Dich richtig verstanden habe:
Private Sub Checkbox2_Click()
If ComboBox1.Value = "" Then
MsgBox "Bitte betroffenes Dokument anwählen!", vbExclamation
CheckBox2.Value = False
Else
If CheckBox2.Value = True Then
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
If ComboBox1.Value = Cells(i, 1) Then
Range("B" & i & ":IV" & i).Replace What:="x", Replacement:="-", LookAt:=xlPart,  _
SearchOrder:=xlByRows
End If
Next
Sheets("Eingabemaske").Activate
End If
End If
End Sub

Anzeige

381 Forumthreads zu ähnlichen Themen


Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...

Links zu Excel-Dialogen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige