Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 384
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von MarionF vom 17.02.2017, 06:08 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Mehrere Zellen nacheinander kopieren, prüfen und wenn dann

 (311 Hits)

Hallo.
Dies ist das erste Mal das ich in einem Forum eine Frage stelle und hoffe es klappt und ich schreibe es verständlich genug.

Ich habe in den Spalten A-D die werte 0000 bis 9999 (also 10000 Zeilen) gelistet.
Diese sollen nacheinander immer in den Bereich I1-L1 kopiert werden. Beginnend mit A1-D1. Sie durchlaufen dann eine mathematische Prüfung/Veränderung (die ich schon hinbekommen habe), die sich nach unten aufbaut. Dabei verändern sich in jeder Zeile (I2-L2 bis Ix-Lx) die Werte. Sobald die Summe dieser 4 Zeilenwerte gleich 0 ist soll die Zeilenzahl "x" hinter die kopierten Werte - in ersten Fall A1-D1 - in die Spalte E eingetragen werden UND es sollen die nächsten Werte überprüft werden. Es sollen dann also die Werte A2-D2 in die Zellen I1-L1 kopiert werden. Dieser Vorgang soll über die 10000 Zeilen erfolgen.

Ich danke jetzt schon mal für eventuelle Hilfe.


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 17.02.2017, 11:11 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

wie erfolgt denn die Prüfung - per Formel oder wird das auch durch ein Makro erledigt?

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst
Antwort 2 von MarionF vom 17.02.2017, 12:36 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo.
Durch eine Formel in jeder Zelle.

In I2 =ABS(I1-J1)
In J2 =A:BS(J1-K1)
In K2 =ABS(K1-L1)
In L2 =ABS(L1-I1)

VG


Antwort noch nicht bewertet
Antwort 3 von M.O. vom 20.02.2017, 09:51 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ich hoffe , ich habe dich richtig verstanden. Das folgende Makro gehört in ein
Standard-Modul deiner Arbeitsmappe:

Sub kopieren()

Dim dblDaten
Dim lngLetzte As Long
Dim lngZeile As Long
Dim lngPruef As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'Spalte E löschen
Range("E1:E10000").ClearContents

'Letzte Zeile in Spalte I ermitteln
lngLetzte = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row

'Daten in Array dblDaten einlesen
dblDaten = ActiveSheet.Range("A1:D10000")

'Zeilen 1 bis 10000 durchlaufen
For lngZeile = 1 To 10000
 'Inhalte der einzelnen Zeilen in Spalten I bis L schreiben
 For lngPruef = 1 To 4
  Cells(1, 8 + lngPruef) = dblDaten(lngZeile, lngPruef)
 Next lngPruef

 'prüfen, ob Zeilen in Spalten I bis L Null ergeben
 For lngPruef = 2 To lngLetzte
  If Application.WorksheetFunction.Sum(Range(Cells(lngPruef, 9), Cells(lngPruef, 12))) = 0 Then Cells(lngZeile, 5) = lngPruef
 Next lngPruef

Next lngZeile

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

MsgBox "Kopieren beendet", 64, "ENDE"

End Sub


Das Makro muss aus dem Arbeitsblatt, in dem deine Daten stehen, gestartet werden.

Ich weiß nicht ob, du in den Zeilen I3 ff. noch weitere Formel hinterlegt hast, Die von dir geposteten Formeln in den Spalten I2 bis L2 ergeben in der Summe ja nur Null, wenn alle 4 Zahlen gleich sind. Wenn es nur das ist, kann man das auch anders lösen.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Wed Aug 16 15:40:24 2017