Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dringend Hilfe benötigt

Forumthread: Dringend Hilfe benötigt

Dringend Hilfe benötigt
01.12.2004 11:14:48
Flo
Hallo Leute
Hab grad ein Problem, möchte in der Excel Tabelle alle Zahlen der Spalte zwei die dreistellig sind den Wert 140 davorfügen, also z.B steht in der Spalte 264, soll danach drin stehn 140264
For p = 0 To 100
If Cells(actRow + p, 2) >= 1 And Cells(actRow + p, 2) Weiß jemand wie ich das bewerkstelligen kann?
Gruß Flo
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dringend Hilfe benötigt
paula
Hi Flo
addiere doch einfach 140000 dazu
Gruß Paula
AW: Dringend Hilfe benötigt
Flo
Merci Paula, eigentlich ne simple Lösung, dass ich da drauf nicht gekommen bin....
Aber so hats geklappt.
Gruß FLo
AW: Dringend Hilfe benötigt
01.12.2004 11:24:04
Andi
Hi Flo,
hilft Dir das?
For zeile = 1 To 100
If Len(Cells(zeile, 2).Value) = 3 Then Cells(zeile, 2).Value = Cells(zeile, 2).Value + 140000
Next zeile
Schönen Gruß,
Andi
P.S.: ein Betreff mit ein wennig mehr Aussagekraft erleichtert Menschen mit einem ähnlichen Problem die Nutzung der Recherche; dringend Hilfe benötigen wohl die meisten, die hier posten... :-)
Anzeige
AW: Dringend Hilfe benötigt
WernerB.
Hallo Flo,
wie gefällt Dir das?

Sub Flo()
Dim i As Long, laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
If Len(Cells(i, 1).Text) = 3 Then
Cells(i, 1).Value = CLng("140" & Cells(i, 1).Text)
End If
Next i
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Dringend Hilfe benötigt
Flo
Merci, habs jetzt aber folgendermaßen gemacht, so funktionierts auch:
For p = 0 To 100
If Cells(actRow + p, 2) = 1 Then Cells(actRow + p, 2) = 150000 + Cells(actRow, 2)
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige