Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Macro: Kopie in T1-Z3 wenn T2-Z3- Px?

Forumthread: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?

Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
21.09.2004 21:06:21
Oliver
Hallo,
ich habe folgendes Problem,
eine Tabelle in der eine Liste wie folgt ist:


      nr | bezeichnung | funktion

         |             | a | b | c | d

      1  | alpha       | x |   |   |

      2  | hose        |   | x |   |

      3  | led         |   |   |   | x

      4  | jacke       |   | x |   |

      5  | nix         |   |   | x |

es ist immer nur eine Funktion (also a,b,c oder d) möglich
dies zeilen sollen jetzt in eine neues vorformatiertes blatt
und zwar so


    wenn a              || wenn b            || wenn c ...

nr | bezeichnung   || nr | bezeichnung  || nr | bezeichnung ...

     1  | alpha         || 2  | hose         || ..

     ..                 || ..                ||

wie ist so etwas zu lösen?
Danke
Gruß
Oliver
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
Reinhard
Hi Oliver,
probier mal:

Sub tt()
With Worksheets("Tabelle1").Range("A1:F100")
Set c = .Find("x", LookIn:=xlValues)
If Not c Is Nothing Then
f = c.Address
Do
erstefreie = Worksheets("Tabelle2").Cells(65536, 2 * c.Column - 5).End(xlUp).Row + 1
Worksheets("Tabelle2").Cells(erstefreie, 2 * c.Column - 5) = .Cells(c.Row, 1)
Worksheets("Tabelle2").Cells(erstefreie, 2 * c.Column - 4) = .Cells(c.Row, 2)
'MsgBox c.Column
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> f
End If
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
ransi
hallo
z.B. mit wenn() und sverweis() aber ohne beispielmappe nur so aus der luft schwierig.
ransi
AW: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
21.09.2004 22:21:56
Kiwimusic
Hallo Olli!
Ja, der Reinhard, der Kanns!
So kann ich es nicht.
Aber so gehts auch. Siehe hier:
https://www.herber.de/bbs/user/11158.xls
:-)
Kiwi
Anzeige
AW: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
24.09.2004 23:10:39
Oliver
Hallo,
top, nur das es nicht automatisch das Ende der Input Liste findet und nur bis zu 50
elemente prüft.
die input liste ist zwischen 20 und 500 einträgen lang!
Gruß
Oliver
AW: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
ransi
hallo
oder:
autofilter nach "x" filtern und rüberkopiern.
ransi
AW: Macro: Kopie in T1-Z3 wenn T2-Z3- Px?
oliver
danke für den tip, doch das muß automatischgehen! mit autofilter ung copy habe ich das
auch schon probiert! (und Macrorecoder!)
Anzeige
;

Forumthreads zu verwandten Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
Messagebox nach 1-2 Sec automatisch schließen
hajo

Hallo zusammen,
gibt es eine Möglichkeit eine MSGBox oder ähnliches aufzurufen, ein paar Sekunden anzeigen zu lassen und automatisch zu schließen, so dass das Makro weiterläuft?
Vielen Dank für Eure Hilfe
25.11.2008 12:07:21
Thread-ID: 1027660
3 Beiträge
Ziffern umsetzten von 1-6 in 0 und größer in 6
1-6

Hallo Ihr Lieben,
kann mir einer helfen, ich lasse in einer Spalte eine Zahl ausrechnen und würde gerne im nächsten Feld der Zeile dann dementsprechend entweder eine '6' zu stehen haben oder eine '0' von 1 bis 6 soll eine 0 erscheinen und alle anderen Zahlen eine 6. Für eine Antwort wäre ic...
24.04.2009 11:02:31
Thread-ID: 1070878
4 Beiträge
Fehler beim Öffnen und Schließen
kleinerfinger

Hallo und einen schönen guten Morgen !
Ich habe folgendes Problem:
Jedes mal wenn ich Excel starte bekomme ich folgende Fehlermeldung:
Kompilierungs-Fehler in verborgenen Modul: AutoExecNew
und beim Schließen:
Kompilierungs-Fehler in verborgenen Modul: DistMon
Wie bekomm...
25.05.2009 08:15:25
Thread-ID: 1077075
16 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Anzeige
3. Februarwoche (15.2.2010)
Heinz

Hallo Leute
Ich bräuchte bitte für einen Ferienkalender immer den Beginn der 3. Februarwoche (15.2.2010)
In A39 steht 1.2.2010
Hätte dazu bitte jemand eine Formel.
Gruß Heinz
04.08.2009 17:18:03
Thread-ID: 1093590
5 Beiträge
=VERWEIS(2;1/(D22:D33<>""); D22:D33)
Claudia

Hallo zusammen,
mittels dieser Formel
=VERWEIS(2;1/(D22:D33""); D22:D33)
suche ich mir die erste belegte Zelle im Bereich D22:D33. Jetzt muss ich aber die zweie belegte
Zelle von unten finden.
zum beispiel statt D25 soll D24 angezeigt werden.
Geht das auch mittels einer...
10.08.2009 15:52:18
Thread-ID: 1094771
6 Beiträge
1100203 geht das mit Variablen3
sascha

Hallo Hary
Die Excel Mappe ist ja der Hammer die Möglichkeit 1 ist schon sehr hilfreich wenn es noch möglich wer bei eingabe aller daten einen entbutton stzen zu können und dann das ergebnis in der gleichen Tabelle sehen zu können um denn überblig zu behalten wer schon verbucht ist und wer...
03.09.2009 22:47:48
Thread-ID: 1100505
3 Beiträge
Range(C12:E30) als .txt speichern / exportieren ?
udo-d

Hallo Profis,
hat evt. Jemand von Euch einen Code, mit dem ich nur einen best. Zellenbereich
eines best. Tabellenblattes ( Name zB: "Auswertung" )
Bereich C12:E30 als Textdatei exportieren / speichern kann ?
im ges. Workbook sind mehrere Tab.Blätter - weis nicht ob das wichtig...
12.10.2009 17:56:56
Thread-ID: 1109157
12 Beiträge
=MIN(34+BX17;22+GANZZAHL(BV17/2))
ottgunter

Hallo
Ich habe eine Formel, mit der ich probleme habe. Solange in der Zelle die Zahl 30 nicht unterschritten wird, kann ich in der Zelle BX 17 eine Zahl einschreiben. Diese wird entsprechend zugezählt.Ab 29 und tiefer wird keine Zahl dazu gerechnet. Was ist das Problem?
=MIN(34+BX17;22...
28.01.2010 15:13:36
Thread-ID: 1133819
11 Beiträge
Zeichen formatieren "*01234...*"
Jaffi

Hallo Forum,
ich benötige mal wieder eure Hilfe:
Ich habe einige Zeichenketten die ich formatieren muss. Ich denke das VBA hier vielleicht ein wenig zu viel des guten wäre. Ich denke ich kann das auch über die benutzerdefinierten Zahlenformate regeln oder?
Die eine Zeichenkette muss...
05.05.2010 08:31:42
Thread-ID: 1155470
5 Beiträge
Anzeige
Umstellung Excelfiles 2003->2010 Probl. m. Buttons
Robert

Hallo, Allerseits
bei der Umstellung unserer Excel-Dokumente von Excel 2003 auf 2010 in das xlsm-Format haben wir folgendes Problem:
Die ActiveX-Buttons, über die unsere Makros aufgerufen werden, verlieren beim Speichern als xlsm ihre Namen und damit den Bezug zu der dazugehörigen Click...
17.06.2010 16:02:08
Thread-ID: 1162515
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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