Office: Zahl in Abhängigkeit hinzufügen...???

CrazyCat · 16. April 2012

Hallo

 Makro zum Überprüfen einer bestehenden Liste.
Die Datei hat mehrere Tabellen, wobei in jeder Tabelle Rufnummern für eine bestimmte Region sind, der Aufbau ist aber prinzipiell identisch.

Ich muss diese Rufnummern nun teilweise durch eine „Vorwahl“ ergänzen, dies aber in Abhängigkeit von einer bestimmten Zeichenkette in einer Spalte.

Sinngemäß muss ich diese Funktion umsetzen:
wenn in Spalte "E" Text "UNI", dann füge in Spalte "C" die Zahl "503" an erster Stelle hinzu.

Danke für Eure Hilfe
...Jana

schatzi · 16. April 2012

Hallo!

Teste mal:

Code:

Sub xy()
    Dim wks As Worksheet, bereich As Range, zelle As Range
    For Each wks In ThisWorkbook.Worksheets
        Set bereich = Intersect(wks.UsedRange, wks.Columns(5))
        If Not bereich Is Nothing Then
            For Each zelle In bereich
                If zelle = "UNI" Then zelle.Offset(0, -2) = "503" & zelle.Offset(0, -2)
            Next zelle
        End If
    Next wks
End Sub

CrazyCat · 16. April 2012

@Schatzi
Vielen Dank, so funktioniert es...

Office: Zahl in Abhängigkeit hinzufügen...???

Zahl in Abhängigkeit hinzufügen...???

Zahl in Abhängigkeit hinzufügen...???

Zahl in Abhängigkeit hinzufügen...??? - Similar Threads - Zahl Abhängigkeit hinzufügen

Exel Farbige Zahlen addieren

Sonnabende zählen

X in die Zahl 1 Umwandeln

In einer Zelle Zahlen erkennen und trennen

Während der Eingabe überprüfen ob Zahl oder Text

Spalten Sortieren nach Zahlen mit Buchstaben (1a,1b usw)

Inhaltsverzeichnis mit römischen Zahlen und der Rest in arabischen Zahlen

(Office 2019) Leerzeilen entfernen

(Office 365) Makro Schaltflaechen vervielfaeltigen sich....

Seit Win 11 Zugriffsprobleme bei Excel über Makros

(Office 365) Makro Zip-Datei von Webseite runterladen, auspacken, kopieren

Speichern mit dem Titel der Zelle A2