Hy, ich habe ein Problem oder Aufgabe bei Excel.
Ich hoffe ich bin hier richtig.
Ich habe eine Spalte mit vielen Messwerten und in der nächsten Spalte stehen einige Bediengungen.
Nun brauche ich eine Lösung um alle Messwerte über 500 und unter -500 in ein weiteres Tabellenblatt zu schreiben, aber mit der entsprechenden Bediengungen, die da neben steht.
Kann da einer helfen ?
danke
marcus
Hi Marcus,
hier ein Makro für Dein Problem:
Option Explicit
Sub Daten_Kopieren()
’ Spalte 1: Spalte mit den Messwerten
’ Spalte 2: Spalte mit den Bedingungen
’ Die Schleife bearbeitet die Zeilen 1 bis 1000
Dim Quellzeile As Integer
Dim Zielzeile As Integer
Zielzeile = 1
For Quellzeile = 1 To 1000
If Worksheets(„Tabelle1“).Cells(Quellzeile, 1) 500 Then
Worksheets(„Tabelle2“).Cells(Zielzeile, 1) = Worksheets(„Tabelle1“).Cells(Quellzeile, 1)
Worksheets(„Tabelle2“).Cells(Zielzeile, 2).Formula = Worksheets(„Tabelle1“).Cells(Quellzeile, 2).Formula
Zielzeile = Zielzeile + 1
End If
Next
End Sub
Da die Zeilen nicht so widergegeben werden wie ich wollte habe ich nach jeder Zeile Programm eine Leerzeile eingefügt. D.h. daß umgekehrt Zeilen, die nicht durch eine Leerzeile getrennt sind auch nicht in 2 Zeilen gehören sondern in eine. Es verursachen aber nur maximal 3 Zeilen derartige Probleme, die anderen sind eh’ kürzer…
Martin
Vielen, vielen Dank für die Hilfe.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]