Opened by Rambo at 2015-03-27 13:58
User since
2003-08-14
803 Artikel
BenutzerIn
2003-08-14
803 Artikel
BenutzerIn
Ja es soll über ein Excel Makro gemacht werden.
Wenn in Spalte C NUR eine Zahl steht dann verschiebe ab "C" alles um eins nach rechts
Mein erster Ansatzpunkt ist so:
Dieses Makro tut seine Arbeit für die Zeile 11 aber bei 800t Datensätzen muss ich noch eine schleife bauen und ich denke so wird das ewig dauern bis es fertig ist.
Leider weis ich nicht wie ich die Schleife baue und ob es einfachere Möglichkeiten gibt als X mal durch die spalten zu gehen.
Merci schon mal
Wenn in Spalte C NUR eine Zahl steht dann verschiebe ab "C" alles um eins nach rechts
Mein erster Ansatzpunkt ist so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Sheets("Tabelle3").Activate
ActivateSheet.Cells(11, 3).Select '11 ist die Zeile und 3 die Spalte C
If ActivateSheet.Cells(11, 3).Value = "10" Then
If ActivateSheet.Cells(11, 8).Value = ActivateSheet.Cells(11, 7).Value
If ActivateSheet.Cells(11, 7).Value = ActivateSheet.Cells(11, 6).Value
If ActivateSheet.Cells(11, 6).Value = ActivateSheet.Cells(11, 5).Value
If ActivateSheet.Cells(11, 5).Value = ActivateSheet.Cells(11, 4).Value
If ActivateSheet.Cells(11, 4).Value = ActivateSheet.Cells(11, 3).Value
If ActivateSheet.Cells(11, 3).Value = ""
End If
End Sub
Dieses Makro tut seine Arbeit für die Zeile 11 aber bei 800t Datensätzen muss ich noch eine schleife bauen und ich denke so wird das ewig dauern bis es fertig ist.
Leider weis ich nicht wie ich die Schleife baue und ob es einfachere Möglichkeiten gibt als X mal durch die spalten zu gehen.
Merci schon mal