Werte zusammen fassen

Hallo,
habe da ein Problem und komm nicht mehr weiter würde mir einer bitte nen Schups geben.
Will Werte aus zwei Zellen zusammen fassen - habe ich auch hin bekommen und zwar so:

Sub beschreibung_zusammenfassen()
' beschreibung_zusammenfassen
' Makro am 15.07.2010 von TR aufgezeichnet
Dim i As Long
i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
With Range("AM1").Resize(i)
.Formula = "=IF(ISBLANK(I1),IF(ISBLANK(U1),U1),I1)"
.Value = .Value
End With
Range("AM1").Select
ActiveCell.FormulaR1C1 = "beschreibung_neu"
End Sub

hier wurde ein Laufzeitfehler 1004 angezeigt bei .Value = .Value
--------------
den Laufzeitfehler habe ich wegbekommen - habs so gemacht
--------------

Sub beschreibung_zusammenfassen()
' beschreibung_zusammenfassen
' Makro am 15.07.2010 von TR aufgezeichnet
Dim i As Long
i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If Not IsEmpty(Cells(i, 9)) Then
Cells(i, 39) = Cells(i, 9)
Else
If Not IsEmpty(Cells(i, 21)) Then
Cells(i, 39) = Cells(i, 21)
End If
End If
Range("AM1").Select
ActiveCell.FormulaR1C1 = "beschreibung_neu"
End Sub

---------------
und nun komme ich nicht mehr weiter.
Hilfe :)
In der Spalte AM sind auch leere Zellen - kann zumindest vorkommen - in diese soll dann der Link aus Spalte AG eingefügt werden.
Merci schon mal vorab fürs drüber schauen
Gruß
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub beschreibung_zusammenfassen() ' beschreibung_zusammenfassen ' Makro am 15.07.2010 von TR aufgezeichnet Dim i As Long i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 With Range("AM1").Resize(i) .Formula = "=IF(ISBLANK(I1),IF(ISBLANK(U1),AG1,U1),I1)" .Value = .Value End With Range("AM1").Value = "beschreibung_neu" End Sub Sub beschreibung_zusammenfassen1() ' beschreibung_zusammenfassen ' Makro am 15.07.2010 von TR aufgezeichnet Dim i As Long i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 If Not IsEmpty(Cells(i, 9)) Then 'Spalte I prüfen Cells(i, 39) = Cells(i, 9) Else If Not IsEmpty(Cells(i, 21)) Then 'Spalte U prüfen Cells(i, 39) = Cells(i, 21) Else Cells(i, 39) = Cells(i, 33) 'Wert aus Spalte AG End If End If Range("AM1").Value = "beschreibung_neu" End Sub

Sub beschreibung_zusammenfassen1() ' beschreibung_zusammenfassen ' Makro am 15.07.2010 von TR aufgezeichnet Dim i As Long Application.ScreenUpdating = False For i = 2 To ActiveSheet.UsedRange.Rows.Count If Not IsEmpty(Cells(i, 9)) Then 'Spalte I prüfen Cells(i, 39) = Cells(i, 9) Else If Not IsEmpty(Cells(i, 21)) Then 'Spalte U prüfen Cells(i, 39) = Cells(i, 21) Else Cells(i, 39) = Cells(i, 33) 'Wert aus Spalte AG End If End If Next Range("AM1").Value = "beschreibung_neu" Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread