Problem
28.07.2004 11:56:01
david
Dim icounter As Integer, iColumns As Integer, iRowz As Integer, iColumnl As Integer
Dim iRowT As Integer, iRow As Integer, iRowL As Integer
Set wks = Worksheets("Messung 1")
iColumnl = Cells(1, Columns.Count).End(xlUp).Column
For iColumns = 1 To iColumnl
a = "PMAX1"
If Cells(1, iColumns).Value = a Then
Hi Leute!
Mal mein Makro:
Dim wks As Worksheet
Dim icounter As Integer, iColumns As Integer, iRowz As Integer, iColumnl As Integer
Dim iRowT As Integer, iRow As Integer, iRowL As Integer
Set wks = Worksheets("Messung 1")
iColumnl = Cells(1, Columns.Count).End(xlUp).Column
For iColumns = 1 To iColumnl
a = "PMAX1"
If Cells(1, iColumns).Value = a Then
"An dieser Stelle meine Frage, und zwar:
ab hier soll er die Spalte(Spalte mit "PMAX1" in Zeile 1) bis letzten Wert in andere Tabelle kopieren. Aber nur die Spalte!
Er darf aber auch nur die Zeilen dieser Spalte kopieren, die in Spalte A den Wert "Logpt" haben.
Bitte helft mir, Danke!
Mfg David
Unten ein par Ansätze:
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If InStr(Cells(iRow, 1).Value, "Logpt") Then
MsgBox ("Hi")
iRowT = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(iRow).Copy wks.Rows(iRowT)
End If
Next iRow
Application.CutCopyMode = False
End If
Next iColumns
Application.CutCopyMode = False
End Sub