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

Suchwörter suchen und Name und Anzahl ausgeben

Arbeitsstunden für einen bestimmten Tageszeitraum zählen

Arbeitstage zählen bis zu einem bestimmten Datum ...

Zahl in fortlaufende Nummerierung einfügen

identische Werte in Spalte nur einmal zählen

Größte zahl in spalte in TextBox

Nur sichtbare Zeilen zählen

Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

(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