Schleifenfehler -benötige Hilfe

Sub DatenÜbernahme() Dim Anzahl As Long Dim Zähler As Long Dim Zeichenfolge 'Daten zählen & eintragen Anzahl = Sheets("Daten").Range("A1").End(xlDown).Row For Zähler = 1 To Anzahl Zeichenfolge = Sheets("Daten").Range(Cells(Zähler, 1), Cells(Zähler, 3)).Value Zeichenfolge = Sheets("Daten").Cells(Zähler, 2).Value & " - " & Left(Sheets("Daten").Cells(Zähler, 2).Value, 1) & "." Sheets("akt Monat").Range(Cells(Zähler + 5, 1), Cells(Zähler + 5, 3)).Value = Zeichenfolge Next Cells.Columns.AutoFit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Zur Erklärung:
'Ich möchte aus der Tab "Daten", aus allen Zeilen der Spalten 1-3
'Daten in die Tab "akt Monat" übernehmen.
'Diese sollen ab der Zelle "A6" in der Tab "akt Monat" neu formatiert eingefügt werden.
'eingefügt werden.
'In der neuen Formatierung sollen die Daten der gleichen Zeile,
'übernommen werden.
'Unterschied:'die Daten aus Spalte 2 und dem 1. Zeichen der Spalte 3, sollen durch einen Bindestrich verbunden
'in Spalte 2 stehen.
'Ich hoffe,ich habe mich einigermaßen verständlich augedrückt.
'Danke Peter


Sub DatenÜbernahme()
Dim Anzahl As Long
Dim Zähler As Long
Dim Zeichenfolge
'Daten zählen & eintragen
Anzahl = Sheets("Daten").Range("A1").End(xlDown).Row
For Zähler = 1 To Anzahl
'#####>>>Fehlermeldung 1004:=Anwendungs- oder objektdefinierter Fehler
Zeichenfolge = Sheets("Daten").Range(Cells(Zähler, 1), Cells(Zähler, 3)).Value
'####<<<<
Zeichenfolge = Sheets("Daten").Cells(Zähler, 2).Value & " - " & Left(Sheets("Daten").Cells(Zähler, 3).Value, 1)
Sheets("akt Monat").Range(Cells(Zähler + 5, 1), Cells(Zähler + 5, 3)).Value = Zeichenfolge
Next
Cells.Columns.AutoFit
End Sub

Sub DatenÜbernahme() Dim Anzahl As Long Dim Zähler As Long Dim Zeichenfolge Dim z1, z2, z3 As String 'Daten zählen & eintragen Anzahl = Sheets("Daten").Range("A1").End(xlDown).Row For Zähler = 1 To Anzahl z1 = Sheets("Daten").Cells(Zähler, 1).Value z2 = Sheets("Daten").Cells(Zähler, 2).Value z3 = Sheets("Daten").Cells(Zähler, 3).Value z2 = z2 & " - " & Left(z3, 1) Sheets("akt Monat").Cells(Zähler + 5, 1).Value = ..'(SpalteA) Sheets("akt Monat").Cells(Zähler + 5, 2).Value = ..'(SpalteB) Sheets("akt Monat").Cells(Zähler + 5, 3).Value = ..'(SpalteC) Next Zähler Cells.Columns.AutoFit End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread