Brauche ein Makro im Excel-Schleife

Tschejtx · 12. November 2019 um 03:24

Hallo ihr Lieben,

ich habe von Makros leider nur wenig Ahnung!

Mein Problem ist folgendes:

Ich habe eine Spalte mit Zahlen und einzelnen Buchstaben,
was ich jetzt machen möchte:

Jede Zahl die bis vor der Zelle mit dem Buchstaben C steht, soll eine NULL an den Anfang der Zahl Geschrieben bekommen,
alle anderen Zahlen sollen so bleiben.

BSP:

A

1 A
2 123123
3 67
4 C
5 78

Ergebnis= in der Spalte B würde dann stehen: A, 0123123, 067, C, 78.

Da ich mal so gar keine AHnung habe, weiß ich nicht einmal wie ich was deklarieren muss. Aber wenn mir einer mit der Schleife helfen würde, wäre ich schon sehr dankbar!

Viele Grüße

Jens_3e572b · 12. November 2019 um 03:24

Da ich mal so gar keine AHnung habe, weiß ich nicht einmal wie
ich was deklarieren muss. Aber wenn mir einer mit der Schleife
helfen würde, wäre ich schon sehr dankbar!

wenn du den vba-editor offen hast, dann gib da mal „for“ ein, markiere das und drück F1. dann bekommst du ein beispiel für eine schleife, mit der du dein problem lösen kannst.

weiterhin musst du noch:

die endbedingung deiner schleife bestimmen (wie oft soll sie durchlaufen?)
die jeweilige zelle auslesen
die null vorne dran schreiben
alles zurück in die zelle

Brille1982 · 12. November 2019 um 03:24

ohne Makro mit Hilfsspalte

Jede Zahl die bis vor der Zelle mit dem Buchstaben C steht,
soll eine NULL an den Anfang der Zahl Geschrieben bekommen,
alle anderen Zahlen sollen so bleiben.

BSP:

A

1 A
2 123123
3 67
4 C
5 78

Ergebnis= in der Spalte B würde dann stehen: A, 0123123, 067,
C, 78.

Hallo,

auf die schnelle gehts auch mit einer Hilfsspalte mit der Formel in Spalte C:
=WENN(B2=„C“;„0“&B1;B1)
Formel runterkopieren und dann die Spalte B mit den Werten ersetzen.

Frage: Wieso als Ergebnis in Spalte B 0123123 ?

MfG

Tschejtx · 12. November 2019 um 03:24

Hallo

Danke.
Ja ich habe auch schon so gut wie alles mit Formeln hintelegt. Problem ist nur, dass ich eine automatisierte Form haben möchte. Und ich werde in dieses Datenblatt jedes mal neue Werte (verschieden angeordnet) reinkopieren, und weil nicht jedes mal manuell etwas runterkopiert etc werden muss, will ich gerne ein Makro haben

Tschejtx · 12. November 2019 um 03:24

Hallo Jens,

das versuche ich schon die ganze Zeit mit der Excel-Hilfe.

Mir ist auch klar wie der Ablauf aussehen soll, komme aber an einigen Stellen einfach nicht weiter.

BSP:

Dim actBranchenausfallzeitreihenPlan As Workbook
Dim actInsolvenzenPlan As Worksheet

Dim actLineInsolvenzen As Long

Set actBranchenausfallzeitreihenPlan = ActiveWorkbookSet actInsolvenzenPlan = actInsolvenzen.Sheets
actInsolvenzenPlan.Activate

For actLineInsolvenzen = 4 To 100000

if actInsolvenzenPlan.Cells(
…

jetzt komme ich nicht weiter!

Tschejtx · 12. November 2019 um 03:24

Hallo Jens,

das versuche ich schon die ganze Zeit mit der Excel-Hilfe.

Mir ist auch klar wie der Ablauf aussehen soll, komme aber an einigen Stellen einfach nicht weiter.

BSP:

Dim actBranchenausfallzeitreihenPlan As Workbook
Dim actInsolvenzenPlan As Worksheet

Dim actLineInsolvenzen As Long

Set actBranchenausfallzeitreihenPlan = ActiveWorkbookSet actInsolvenzenPlan = actInsolvenzen.Sheets
actInsolvenzenPlan.Activate

For actLineInsolvenzen = 4 To 100000

if actInsolvenzenPlan.Cells(
…

jetzt komme ich nicht weiter!

Tschejtx · 12. November 2019 um 03:24

Irgendwie klappt es dennoch nicht:

Sub Korrektur_Code()

Dim actBranchenausfallzeitreihenPlan As Workbook
Dim actInsolvenzenPlan As Worksheet

Dim actLineInsolvenzen As Long

Set actBranchenausfallzeitreihenPlan = ActiveWorkbook(„Makro…Branchenausfallzeitreihe…“)
Set actInsolvenzenPlan = actInsolvenzen.Sheets(„Insolvenzen“)

actInsolvenzenPlan.Activate 'Arbeitsblatt öffnen

For actLineInsolvenzen = 4 To 100000 'Schleife von Zeile 4 zu Zeile 100000

if actInsolvenzenPlan.Cells(actLineInsolvenzen, 1) = C 'wenn in der aktuellen Zelle, die ab einschließlich Zeile 4 beginngt ein C steht
then ’ dann beende Schleife

Else
if actInsolvenzenPlan.Cells (actLineInsolvenzen, 1) = Integer 'andernfalls prüfe ob eine Zahlsteht
then actInsolvenzenPlan.Cells (actLineInsolvenzen, 1)= 0 + actInsolvenzenPlan.Cells (actLineInsolvenzen, 2) 'wenn ja dann fühe eine 0 und den Zelleninhalt in Spalte 2(B)hinzu

End If
actLineInsolvenzen = actLineInsolvenzen + 1

End If

End Sub

Reinhard_fb8cb7 · 12. November 2019 um 03:24

Nachfrage

Ich habe eine Spalte mit Zahlen und einzelnen Buchstaben,
was ich jetzt machen möchte:
Jede Zahl die bis vor der Zelle mit dem Buchstaben C steht,
soll eine NULL an den Anfang der Zahl Geschrieben bekommen,
alle anderen Zahlen sollen so bleiben.

Hallo Tschejtx,

das Makro soll die Spalte von oben nach unten durchlaufen und allen Zahlen vornedran eine Null verpassen( die werden dann zu Text) bis in einer Zelle ein „C“ auftaucht, ist das so korrekt?

Gruß
Reinhard

Tschejtx · 12. November 2019 um 03:24

Hallo Reinhard,

genau. Das Makro soll alle Zahlen mit einer Null am Anfang versehen bis zu der Zelle wo Ein großes C auftaucht. der Datensatz besteht mal aus einzelnen Buchstaben mal aus normalen Zahlen (die aber linksbündig angezeigt werden)

Sinn des Ganzen ist, dass ich eine automatisierte Version brauche, mit der ich dann verschiedenste Datensätze reinkopieren kann ohne jedes mal den Datensatz anpassen zu müssen. Ich brauche alle Zahlen in dem „Linksbündigen“ Format. Weil ich später andere Listen habe mit dessen Hilfe ich mit „sverweisen“ die Artikelnummern zuordnen kann. und weil ich in beiden Datensätzen diese Artikel brauche müssen auch die aufbereiteten Zahlen weiterhin Artikel bleiben, da ich sonst keine Sverweise anwenden kann.

Ich hoffe, das ist jetzt ein wenig verständlicher geworden? Danke für die Hilfe

Reinhard_fb8cb7 · 12. November 2019 um 03:25

Jede Zahl die bis vor der Zelle mit dem Buchstaben C steht,
soll eine NULL an den Anfang der Zahl Geschrieben bekommen,
alle anderen Zahlen sollen so bleiben.

Hallo T,

Sub Nuller()
Dim Zei As Long, ZeiC As Long
With Worksheets("Tabelle1")
 On Error Resume Next
 ZeiC = Application.Match("C", .Columns(1), 0)
 If Err.Number = 0 Then
 For Zei = 1 To ZeiC - 1
 If IsNumeric(.Cells(Zei, 1).Value) And .Cells(Zei, 1).Value "" Then
 If Left(.Cells(Zei, 1).Value, 1) "0" Then
 .Cells(Zei, 1).Value = "'0" & CStr(.Cells(Zei, 1).Value)
 End If
 End If
 Next Zei
 Else
 MsgBox "Kein C gefunden in Spalte A."
 End If
End With
End Sub

Gruß
Reinhard

Brille1982 · 12. November 2019 um 03:25

Morgen,

hier mal ein Versuch:

Sub Null_anfuegen()
Dim Zeile As Integer, letzteZeile As Integer
letzteZeile = Sheets(„Tabelle1“).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile = 1
Do
If IsNumeric(Cells(Zeile, 1)) = True Then
Range(„a“ & Zeile).NumberFormat = „@“
Range(„a“ & Zeile) = „0“ & Range(„a“ & Zeile)
Zeile = Zeile + 1
Else
Zeile = Zeile + 1
End If
Loop Until Cells(Zeile, 1) = „C“ Or Zeile = letzteZeile - 1
End Sub

Reinhard_fb8cb7 · 12. November 2019 um 03:25

Sub Null_anfuegen()
Dim Zeile As Integer, letzteZeile As Integer
letzteZeile =
Sheets(„Tabelle1“).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile = 1
Do
If IsNumeric(Cells(Zeile, 1)) = True Then
Range(„a“ & Zeile).NumberFormat = "@"
Range(„a“ & Zeile) = „0“ & Range(„a“ & Zeile)
Zeile = Zeile + 1
Else
Zeile = Zeile + 1
End If
Loop Until Cells(Zeile, 1) = „C“ Or Zeile = letzteZeile - 1
End Sub

Hallo Brille,

dein Code kann in/ab XL 2007 zu einem Fehler führen, erkennst du warum?

Nimm mal eine leere Spalte A, schreib irgendwo ein C rein, laß den Code dann mehrmals laufen…

Gruß
Reinhard

Tschejtx · 12. November 2019 um 03:25

Hallo Reinhard,

danke für deine schnelle Antwort!

Ich habe es versucht umzusetzen und erhalte zunächst Fehlermeldungen in rot bei:

If Error Number = 0 Then

? Wofür ist das? (wofür ist die Funktion : On Error Resume Next zuständig?!

If Left(.Cells(Zei, 1).Value, 1) „'0“ & Cstr(.Cells(Zei, 1).Value)

Warum wird das rot angezeigt?

Danke dir!

Brille1982 · 12. November 2019 um 03:25

Hallo Reinhard,

bin jetzt davon ausgegangen, dass es keine Leerzeilen gibt und man das Makro nicht unendlich durchlaufen lässt…
So sollte es klappen:

Sub Null_anfuegen()
Dim Zeile As Integer, letzteZeile As Integer
letzteZeile = Sheets(„Tabelle1“).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile = 1
Do
If IsNumeric(Cells(Zeile, 1)) = True And Not Range(„a“ & Zeile) = „“ And Not Left(Range(„a“ & Zeile), 1) = „0“ Then
Range(„a“ & Zeile).NumberFormat = „@“
Range(„a“ & Zeile) = „0“ & Range(„a“ & Zeile)
Zeile = Zeile + 1
Else
Zeile = Zeile + 1
End If
Loop Until Cells(Zeile, 1) = „C“ Or Zeile = letzteZeile - 1
End Sub

Tschejtx · 12. November 2019 um 03:25

Hallo Reinhard,

sorry hab mich vertippt. Jetzt ist nichts mehr rot.

Wenn ich auf Start gehe, wird
Sub Nuller()
geld angezeigt und .Columns(1) wird angeleuchtet, und auch .Cells?!

Was mache ich falsch=?

Tschejtx · 12. November 2019 um 03:25

Tut mir Leid, dass ich dich hie rmit Nachrichten bombadiiere!

Es hat geklappt:

Sub Nuller()

Dim Zei As Long
Dim ZeiC As Long

Dim Anz_InsolPlan As Worksheet

On Error Resume Next
ZeiC = Apllication.Match(„C“, 1, 0)
If Err.Number = 0 Then
For Zei = 4 To ZeiC - 1
If IsNumeric(Anz_InsolPlan.Cells(Zei, 1).Value) And Anz_InsolPlan.Cells(Zei, 1).Value „“ Then
If Left(Anz_InsolPlan.Cells(Zei, 1).Value, 1) „0“ Then
Anz_InsolPlan.Cells(Zei, 1).Value = „0“ & CStr(Anz_InsolPlan.Cells(Zei, 1).Value)
End If
End If
Next Zei
Else
MsgBox „Kein C gefunden in Spalte A.“
End If

End Sub

So sieht es aus. Aber leider bekomme ich die Nachricht, dass kein C gefunden werden kann.