vba schleifen problem

Re(4): vba schleifen problem

wang — Tue, 24 Jul 2007 17:44:52 GMT

danke penguin werd ich morgen in der arbeit gleich ausprobieren, schönen abend noch, lg

Re(3): vba schleifen problem

Penguin — Sun, 22 Jul 2007 11:23:06 GMT

Sub makro()
Dim wksSource As Worksheet,wksTarget as worksheet
dim lngSRow as long, lngTRow as long,lngNumRows as long
dim intSCol as integer,intTCol as integer

'hier eine neue Zählvariable dazu
dim lngRow as long

Set wkssource= activeWorkbook.Worksheets("Daten")
set wkstarget=activeworkbook.worksheets("Clean")
lngTRow=1
lngNumRows= Application.WorksheetFunction.CountA(Wkssource.Columns(2))
For lngsrow = 2 To lngnumrows
For intscol = 1 To 14 'Anzahl der Spalten
If wkssource.Cells(lngsrow, 5) = "XYZ" Then
'hier die Zielzeile abändern
inttcol=intscol
wkstarget.Cells(lngtRow, intcol).Value = wkssource.Cells(lngsrow, intscol).Value
lngtrow=lngtrow+1
End If
Next intscol
Next lngsrow
End Sub

eine zeile code vergessen

alternativ würde ich wie geagt statt counta folgendes vorschlagen:
lngnumrow=wkssource.cells(65535,2).end(xlup).row

damit geht das programm auf jeden fall bis zur letzten zeile in der was steht (in spalte 2).

Re: vba schleifen problem

Ardjan — Thu, 19 Jul 2007 09:27:17 GMT

Nehme noch eine extra Variable hinein (zB CleanCounter, wie im Beispiel) und zähle den immer 1 hoch wenn einen Wert in der Clean-Tabelle gelandet st. Und verwende diese Variable um der Position im Clean-Tabelle zu bestimmen.

(ich habe es aber nicht probiert, ymmv)

Sub makro()
Dim objWks As Worksheet
Set objWks = ThisWorkbook.Worksheets("Daten")
zeilennr = Application.WorksheetFunction.CountA(objWks.Columns(2))
CleanCounter=2 'Startzeile der CleanListe
For i = 2 To zeilennr
For j = 1 To 14 'Anzahl der Spalten
If Worksheets("Daten").Cells(i, 5) = "XYZ" Then
Worksheets("clean").Cells(CleanCounter, j).Value = Worksheets("Daten").Cells(i, j).Value
CleanCounter = CleanCounter + 1
End If
Next j
Next i
End Sub

Re(2): vba schleifen problem

wang — Wed, 18 Jul 2007 06:45:45 GMT

Hallo Penguin, danke mal für deine Hilfe, nur leider funktioniert das Makro nicht so ganz, da ich im Tabellenblatt Clean nur in der ersten Zeile etwas stehen habe, die dafür x mal überschrieben, ich hoffe du verstehst was ich meine!
lg christoph

Re: vba schleifen problem

Penguin — Tue, 17 Jul 2007 16:37:16 GMT

Sub makro()
Dim wksSource As Worksheet,wksTarget as worksheet
dim lngSRow as long, lngTRow as long,lngNumRows as long
dim intSCol as integer,intTCol as integer

'hier eine neue Zählvariable dazu
dim lngRow as long

Set wkssource= activeWorkbook.Worksheets("Daten")
set wkstarget=activeworkbook.worksheets("Clean")
lngRow=1
lngNumRows= Application.WorksheetFunction.CountA(Wkssource.Columns(2))
For lngsrow = 2 To lngnumrows
For intscol = 1 To 14 'Anzahl der Spalten
If wkssource.Cells(lngsrow, 5) = "XYZ" Then
'hier die Zielzeile abändern
inttcol=intscol
wkstarget.Cells(lngRow, intcol).Value = wkssource.Cells(lngsrow, intscol).Value
End If
Next intscol
Next lngsrow
End Sub

edit:
ein paar stilfehler...

übrigens würde ich die funktion counta nicht verwenden, was machst du wenns leerzeilen gibt?

Re: vba schleifen problem

Penguin — Tue, 17 Jul 2007 16:37:16 GMT

Sub makro()
Dim objWks As Worksheet
Set objWks = ThisWorkbook.Worksheets("Daten")

'hier eine neue Zählvariable dazu
dim lngRow as long

lngRow=1
zeilennr = Application.WorksheetFunction.CountA(objWks.Columns(2))
For i = 2 To zeilennr
For j = 1 To 14 'Anzahl der Spalten
If Worksheets("Daten").Cells(i, 5) = "XYZ" Then

'hier die Zielzeile abändern
Worksheets("clean").Cells(lngRow, j).Value = Worksheets("Daten").Cells(i, j).Value
End If
Next j
Next i
End Sub

vba schleifen problem

wang — Tue, 17 Jul 2007 14:27:38 GMT

Liebe Experten, habe wieder mal ein kleines problem. Ich habe ein Tabellenblatt "Daten" mit x zeilen und 14 Spalten. Daraus will ich die relevanten Zeilen (Wenn in spalte 2: "XYZ" steht) in ein neues Tabellenblatt "Clean" kopieren. Mein erster Ansatz sieht wie folgt aus:

Sub makro()
Dim objWks As Worksheet
Set objWks = ThisWorkbook.Worksheets("Daten")
zeilennr = Application.WorksheetFunction.CountA(objWks.Columns(2))
For i = 2 To zeilennr
For j = 1 To 14 'Anzahl der Spalten
If Worksheets("Daten").Cells(i, 5) = "XYZ" Then
Worksheets("clean").Cells(i, j).Value = Worksheets("Daten").Cells(i, j).Value
End If
Next j
Next i
End Sub

Bin mit dem Ergebnis recht zufrieden bis auf, dass in der Tabelle "clean" die Zeilen nicht untereinander stehen sondern mit abständen wie sie halt im "daten" blatt vorkommen, beim versuch eine 3te schleife einzubauen bin ich aber leider gescheitert, vielleicht kann mir jmd. helfen!

Danke lg christoph