Werte aus Nachbarzelle einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub schleife() Dim Wert As String, x As Byte (x As Byte reicht bis 254, sonst x As Long) Tabelle1.Activate 'Tabelle anpassen For x = 1 To 20 'für 20 Zeilen (anpassen) Wert = Cells(x, 3) Cells(x, 3) = Wert & "x" & Cells(x, 4) Next End Sub

Hallo Erich
Grundsätzlich habe ich nichts gegen Hinweise, die auch mir helfen besser zu werden
(das ist ja Sinn und Zweck eines Forum's)
und ich kenne auch die Unterschiede zwischen den Typen Long und Byte, aber ...
... ich verstehe nicht was Du mir sagen willst.
Dim X as Byte reicht doch für mein gepostetes Beispiel
und nur darauf beziehe ich mich!
anders im Beitrag von Tino. Dort muß zwingend als Long deklariert werden (das ist auch mir klar!)
außerdem habe ich doch dazugeschrieben ab 255 als Long deklarieren.
was bitte ist denn daran falsch ?
Ok, ok ich bin kein Profi,
wenn ich aber gleich als Long deklariert hätte, wäre doch garantiert ein Beitrag gekommen das
beim Wert von max. 20 für die Variable X, der Datentyp Byte reicht.
Aber, man kann es sowieso nie allen recht machen.
und nun nochmal zum Beitrag:
Ich würde noch eine Abfrage einbauen, ob der Wert auch eine Zahl ist:
Userbild

und nun noch einen schönen Sonntag an alle
ich geh jetzt auf ne Geburtstagsparty, Prost ;o)
Userbild

Option Explicit Sub ZellenZusammenFühren() Dim a As Long Application.ScreenUpdating = False For a = 1 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(a, 3) > "" And Cells(a, 4) > "" Then Cells(a, 3).Value = Cells(a, 3).Value & "x" & Cells(a, 4).Value End If Next a Application.ScreenUpdating = True End Sub

Hi Tino,
Dein Code ist, denke ich - prinzipiell - die richtige Lösung für das beschriebene Problem. Aber da hier gerade schon eine kleine Diskussion über Variablen gelaufen ist möchte ich hier mal einen Hinweis einfügen, den ich mal von einem Prifo bekommen habe, nachdem ich eine ähnliche Schleife geschrieben hatte:
Es ist besser die Schleife so zu schreiben:


Sub ZellenZusammenFühren()
Dim a As Long
Dim lngEnde As Long
lngEnde = Cells(Rows.Count, 4).End(xlUp).Row
Application.ScreenUpdating = False
For a = 1 To lngEnde
If Cells(a, 3) > "" And Cells(a, 4) > "" Then
Cells(a, 3).Value = Cells(a, 3).Value & "x" & Cells(a, 4).Value
End If
Next a
Application.ScreenUpdating = True
End Sub

... das heißt, den TO-Wert immer außerhalb der Schleife in eine Variable zu schreiben (natürlich nur sofern er sich innerhalb der Schleife nicht ändert, was hier aber nicht der Fall sein kann), und dann in der Schleife die Variable zu benutzen, WEIL sonst der Wert bei jedem Schleifendurchgang immer wieder neu ermittelt werden muss, und das kann doch schon eineges an Zeit und Rechnerleistung kosten, je nachdem wie oft die Schleife durchlaufen wird.
Gruß
Uwe
(:o)

Private Sub testFix() Dim t As Single t = Timer Dim vArray(1 To 1000000) As Variant Dim lIndex As Long For lIndex = 1 To 1000000 vArray(lIndex) = lIndex Next Debug.Print Timer - t End Sub Private Sub testVar() Dim t As Single Dim lX As Long t = Timer Dim vArray(1 To 1000000) As Variant Dim lIndex As Long lX = 1000000 For lIndex = 1 To lX vArray(lIndex) = lIndex Next Debug.Print Timer - t End Sub Private Sub testGerechnet() Dim t As Single t = Timer Dim vArray(1 To 1000000) As Variant Dim lIndex As Long For lIndex = 1 To ActiveSheet.Range("A" & Sheet1.Rows.Count).End(xlUp).Row * 1000000 vArray(lIndex) = lIndex Next Debug.Print Timer - t End Sub

Private Sub testGerechnet() Dim t As Single t = Timer Dim vArray(1 To 1000000) As Variant Dim lIndex As Long For lIndex = 1 To ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row * 1000000 vArray(lIndex) = lIndex Next Debug.Print Timer - t End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus Nachbarzelle einfügen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread