Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makrofeinheiten !

Makrofeinheiten !
08.06.2009 11:00:41
Ernst
Hallo Vba Experten !
https://www.herber.de/bbs/user/62289.zip
1.
Ich würde noch ein paar Feinheiten in meinem Projekt benötigen und zwar wenn ich in meiner Liste in Tabellenblatt 1 eine neue Nummer eingebe konkret in Spalte A ab A8 abwärts ,Spalte E ab E8 abwärts sowie Spalte I ab I8 abwärts soll dieser Eintrag ins Tabellenblatt2 Spalte A übernommen werden.
Der Idealfall wäre wenn diese Nummer richtig einsortiert würde .
2.
Ich habe festgestellt wenn ich im Tabellenblatt2 eine Abfrage mache zb Nr.4739 und es steht ein Datum in Spalte H so sehe ich bei der Auswertung 7 obwohl nur ein Datum Dieser Nummer zugeordnet ist.
Sind jedoch die Spalten A-H befüllt stimmt die Auswertung.
Das ist ein kleiner Schönheitsfehler der beseitigt werden müsste.
Wäre für Lösungsvorschläge dankbar
lg.Ernst

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrofeinheiten !
08.06.2009 11:40:00
hary
Hallo Ernst
auf die schnelle. noch ohne sortierung

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim zelle As Long
zelle = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row + 1
If Not Intersect(Target, Range("A8:A105,E8:E105,I8:I105")) Is Nothing Then
Sheets("Archiv").Cells(zelle, 1) = Cells(Target.Row, Target.Column)
End If
End Sub


gruss Hary

AW: Makrofeinheiten !
08.06.2009 11:45:37
Ernst
Hallo Hary !
Fehler Mehrdeutiger Name Worksheet_Change
Lg.Ernst
AW: Makrofeinheiten !
08.06.2009 12:14:58
hary
Hallo Ernst h
hatte noch nicht die aktuelle Mappe ;-)
ersetz mal den Code vom Change Ereigniss durch diesen. Teste mal.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim zelle2 As Long
Dim zelle As Long
zelle2 = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 5 To 247
If Target.Column = 2 Or Target.Column = 6 Or Target.Column = 10 Then
zelle = Sheets("Archiv").Cells(i, Columns.Count).End(xlToLeft).Column + 1
If Sheets("Archiv").Cells(i, 1) = Cells(Target.Row, Target.Column).Offset(0, -1).Value  _
then
Sheets("Archiv").Cells(i, zelle) = Cells(Target.Row, Target.Column).Value
End If
End If
Next
If Not Intersect(Target, Range("A8:A105,E8:E105,I8:I105")) Is Nothing Then
Sheets("Archiv").Cells(zelle2, 1) = Sheets("Flor-Kag-Brg").Cells(Target.Row, Target.Column)
End If
With Sheets("Archiv").Range("A5:O247") ' hier statt O letzte Spalte im Bereich
.Sort Key1:=Sheets("Archiv").Range("A5"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub


Gruss Hary

Anzeige
AW: Makrofeinheiten !
08.06.2009 12:32:03
Ernst
Hallo Hary !
ja das funktioniert recht gut !
Lg.Ernst
Hws: Warum dann noch offen? Gruß owT
08.06.2009 13:11:31
Luc:-?
:-?
AW: wegen Punkt 2 !
08.06.2009 13:20:19
Ernst
Hallo Luc !
zu Punkt 2 warte ich noch auf Lösungsvorschläge !
lg.Ernst
AW: wegen Punkt 2 !
08.06.2009 13:48:59
Ernst
Hallo Vba Experten !
hat vieleicht jemand eien Lösungsvorschlag zu Punkt 2 ?
lg.Ernst
Danke ! Problem1 erledigt....
08.06.2009 13:43:44
Ernst
Hallo Hary !
Danke läuft einwandfrei !
lg.Ernst
Problem2 noch offen.... owT
08.06.2009 13:52:04
Luc:-?
:-?
AW: Problem2 noch offen.... owT
08.06.2009 13:55:26
Ernst
Hallo Vba Experten !
https://www.herber.de/bbs/user/62289.zip
Punkt 2.
Ich habe festgestellt wenn ich im Tabellenblatt2 eine Abfrage mache zb Nr.4739 und es steht ein Datum in Spalte H so sehe ich bei der Auswertung 7 obwohl nur ein Datum Dieser Nummer zugeordnet ist.
Sind jedoch die Spalten A-H befüllt stimmt die Auswertung.
Das ist ein kleiner Schönheitsfehler der beseitigt werden müsste.
Wäre für Lösungsvorschläge dankbar
lg.Ernst
Anzeige
AW: Problem2 noch offen.... owT
09.06.2009 07:18:12
Ernst
Danke !
Ich werde das neu formulieren.
lg.Ernst

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige