Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ZellenWerte umstellen

ZellenWerte umstellen
14.10.2004 14:17:14
Hugo
Hallo Excelspezis
Folgendes Problem liegt bei mir an.
Ich habe einen festgelegten Bereich z.b. A1 - D50.
In der Spalte A1-A50 können folgende Werte stehen "1a", "1b", "1c", "1d"
Jetzt möchte ich gerne, dass ich via VB-Code folgendes machen könnte:
Steht in Zelle A1 der Wert "1b" dann soll in Zelle B1 ein "x" eingetragen werden
Steht in Zelle A1 der Wert "1c" dann soll in Zelle C1 ein "x" eingetragen werden
Steht in Zelle A1 der Wert "1d" dann soll in Zelle D1 ein "x" eingetragen werden
Steht in Zelle A1 der Wert "1a" dann soll in Zelle A1 ein "x" eingetragen werden
Und so soll der ganze festgelegte Bereich (A1-D50) abgearbeitet werden.
Gibt es da eine Lösungsmöglichkeit.
Danke und Gruss
Hugo

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ZellenWerte umstellen
14.10.2004 14:29:29
Detlef
Hallo Hugo,
diesem code einer Schaltfläche zuordnen und dann erst alle eingaben machen (1a usw.), Schaltfläche betätigen und fertig.

Sub umwandeln()
For z = 1 To 50
If Cells(z, 1) = "1a" Then Cells(z, 1) = "x"
If Cells(z, 1) = "1b" Then
Cells(z, 2) = "x"
Cells(z, 1) = ""
End If
If Cells(z, 1) = "1c" Then
Cells(z, 3) = "x"
Cells(z, 1) = ""
End If
If Cells(z, 1) = "1d" Then
Cells(z, 4) = "x"
Cells(z, 1) = ""
End If
Next z
End Sub

Gruß Detlef
AW: ZellenWerte umstellen
14.10.2004 15:57:42
Hugo
Detlef
Herzlichen Dank Dein Code hilft mir weiter.
Gruss Hugo
AW: ZellenWerte umstellen
Reinhard
Hi Hugo,

Sub umwandeln()
Dim n As Integer, spalte As Integer
For n = 1 To 50
spalte = Right(Cells(n, 1), 1)
Cells(n, 1) = ""
Range(spalte & n) = "x"
Next n
End Sub

Gruß
Reinhard
Anzeige
AW: ZellenWerte umstellen
14.10.2004 14:41:39
Detlef
Hallo Reinhard,
ich habe deinen code etwas abgewandelt(so ging er nicht)

Sub umwandeln1()
Dim n As Integer, spalte As String
For n = 1 To 50
If Cells(n, 1) = "" Then Exit Sub
spalte = Right(Cells(n, 1), 1)
Cells(n, 1) = ""
Range(spalte & n) = "x"
Next n
End Sub

Gruß Detlef
AW: ZellenWerte umstellen
14.10.2004 16:00:16
Hugo
Danke an Euch
Der korrigierte Code geht und funktioniert.
Gruss und Danke Hugo
AW: ZellenWerte umstellen
Reinhard
Hi Detlef,
hast Recht, gibt fEhler13 wenn Zelle leer ist in A.
Gruß
Reinhard
AW: ZellenWerte umstellen
14.10.2004 15:59:05
Hugo
Reinhard
Besten Dank für den Code. Habe schon etwas von Detlef erhalten. Werde aber auch Dein Code testen
Gruss Hugo
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige