Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Makroaktionen wenn 1 Wert vorhanden

Forumthread: 2 Makroaktionen wenn 1 Wert vorhanden

2 Makroaktionen wenn 1 Wert vorhanden
01.09.2016 13:07:48
dukeofaustria
Hallo,
folgendes Problem beschäftig mich schon seit Tagen:
ich möchte eine Liste filtern, ist ein Datensatz vorhanden, dann soll die Seite gedruckt und zusätzlich im Tabellenblatt "Übersicht" dieser Wert eingetragen werden.
Aus Google habe ich folgendes zusammengewürfelt (leider ohne Erfolg!):
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1010"
If Range("b2").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If Range("b2").Value > 0 Then Sheets("Übersicht").Select , Rows("1:1").Select, ActiveCell.FormulaR1C1 = "101"
Der Ausdruck funktioniert ja noch, nur die Aktion mit dem Eintrag in das Tabellenblatt "Übersicht" wird nicht durchgeführt.
Zusatz: in der Zelle "b2" steht das Teilergebnis der gefilterten Spalte.
Ist der Wert nicht vorhanden, dann sollte der nächste Wert gefiltert werden usw.
Ich hoffe ich konnte mein Vorhaben einigermaßen verständlich beschreiben ;-)
Ich bin für jede Hilfe dankbar!
Gruß
duke
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Makroaktionen wenn 1 Wert vorhanden
01.09.2016 13:21:40
Werner
Hallo,
und wohin im Blatt Übersicht soll die 101?
Gruß Werner
AW: 2 Makroaktionen wenn 1 Wert vorhanden
01.09.2016 13:21:57
Bernd
Servus, 
Rows("1:1").Select, ActiveCell.FormulaR1C1 = "101"

Wenn man die ganze Zeile selektiert, in welche "ActiveCell" soll das Makro denn den Wert eintragen?
Versuch mal:
If Range("b2").Value > 0 Then
ActiveSheets.PrintOut Copies:=1, Collate:=True
Sheets("Übersicht").Cells(1,1).Value= 101
End If
Grüße
Anzeige
AW: 2 Makroaktionen wenn 1 Wert vorhanden
01.09.2016 13:53:38
dukeofaustria
Hallo,
danke für den Tipp.
Also am Tabellenblatte "Übersicht" sollte "101" in A1 eingetragen werden.
Nach der nächsten Filterung 1020 der Wert 102 in A2 usw...
Da ich die Funktion für die nächste freie Zelle gefunden habe, wollte ich es mit der Funktion "Zeile einfügen" umgehen - sicherlich kein eleganter Weg, aber in der Not...
Gruß
duke
Anzeige
AW: 2 Makroaktionen wenn 1 Wert vorhanden
01.09.2016 14:43:54
Bernd
Servus,
sollen die Werte nach jedem Filtern immer in die nächste Zeile in Spalte A?
Dann teste mal folgendes: 

Option Explicit
Dim intNZ as Integer
Sub...()
If Range("B2").Value > 0 Then
intNZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.PrintOut Copies:=1, collate:=True
Sheets("Übersicht").Cells(intNZ, 1).Value = Left(Range("B2").Value, 3)
End If
End Sub
Grüße, Bernd
Anzeige
AW: 2 Makroaktionen wenn 1 Wert vorhanden
05.09.2016 09:44:41
dukeofaustria
Hallo Bernd,
vielen Dank für Deine Mühe, aber ich komme damit nicht ganz klar - ziemlich unverständlich für mich der Makrocode... Ich schaffe es nicht die Befehle so zu ändern, dass mein Vorhaben gelingt.
Aktuell werden die Zelleninhalte von Tabelle1, Zelle B2 auf das Tabellenblatt "Übersicht" eingetragen. Jedoch in Spalte A eine Zeile tiefer als zuvor auf Tabellenblatt1 gefiltert wurde.
Ich suche jetzt ein Lösung, in der die Daten am Tabellenblatt "Übersicht" in Spalte A untereinander eingetragen werden.
Also erste Filterung in A1, dann A2, A3 usw.
Gruß
duke
Anzeige
;

Forumthreads zu verwandten Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Anzeige
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige