Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einträge umbenennen

Einträge umbenennen
22.07.2004 14:50:53
Guni
Hallo
ich habe eine exceltabelle mit ca. 2000 Zeilen (Einträge)
ca. 200 Kategorien und diese sind Abkürzungen nun muss ich
diese umbenennen wie kann ich das, mit der Funktion ersetzen
wäre es sehr mühsam da ich das einmal die Woche machen muss.
ich hoffe ihr könnt mir helfen Danke.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einträge umbenennen
rumbel
machst n kleines vbascript, dass per schleife alle abkürzungen ersetz...
ersetzen entweder hart codieren ( also mit lauter ifs oder select case) oder schreibst die abkürzungen und den langen namen in ne zweite tabelle und lösst daraus ersetzen
AW: Einträge umbenennen
22.07.2004 18:57:22
Guni
ein vbascript wäre schon gut nur dafür reichen meine programmier Kenntnisse
leider nicht aus, das mit zweiter Tabelle, wie soll das gehen.
AW: Einträge umbenennen
Beni
Hallo Guni,
was soll aus den Abkürzungen den werden, jede Abkürzungen muss einzel deklariert werden, was daraus werden soll.
Ich habe Dir ein Beispiel gebastelt, alle 1 beziehen sich auf SpalteA (anpassen), Du kannst noch mehrere ElseIf's zwischen If und End If rienschienen
Gruss Beni

Sub Erstzten()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "Abk." Then Cells(i, 1) = "Abkürzung"
ElseIf Cells(i, 1) = "Bhf" Then Cells(i, 1) = "Bahnhof"
ElseIf Cells(i, 1) = "BL" Then Cells(i, 1) = "Bundesliga"
End If
Next i
End Sub

Anzeige
AW: Einträge umbenennen
24.07.2004 15:39:22
Guni
Hallo Beni
Danke für das script aber ich komm nicht ganz zurecht damit
ich weis nicht wie ich es einbinden soll.
Danke
ich hoffe ich mache dir nicht zu viel mühe
Gruß Guni
AW: Einträge umbenennen
Beni
Hallo Guni,
kopiere dises Makro mit Ctrl+c und gehe in der Exceltabelle mit Extras/Makros zu Visual Basic Editor oder Alt-F11, im Editor Einfügen/Modul und füge das Kopierte dort ein.
Passe das Makro entsprechend an, mit F8 kannst Du es dort schrittweise testen.
Aufruf des Makros in der Tabelle mit Extras/Makro oder mit Alt+F8 und Ausführen.
Gruss Beni
AW: Einträge umbenennen
26.07.2004 17:19:48
Guni
Hallo Beni
habe das script eingefügt bekomme aber den fehler
"else ohne if"
gruß Guni
Anzeige
AW: Einträge umbenennen
Beni
Hallo Guni,
ist mein Fehler, Sorry.
Gruss Beni

Sub Erstzten()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "Abk." Then
Cells(i, 1) = "Abkürzung"
ElseIf Cells(i, 1) = "Bhf" Then
Cells(i, 1) = "Bahnhof"
ElseIf Cells(i, 1) = "BL" Then
Cells(i, 1) = "Bundesliga"
End If
Next i
End Sub

AW: Einträge umbenennen
26.07.2004 18:31:48
Guni
Hallo Beni
Herzlichen Dank es hat funktioniert.
Hätte da noch ein Problem, ist es möglich wenn ich zwei spalten
habe und in jeder spalte sind werte nun möchte ich aus diesen zwei spalten
eine spalte machen also die beiden werte sollen dann in einer spalte sein
Danke
Gruß Guni

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige