Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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

301 Forumthreads zu ähnlichen 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
Anzeige
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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
2
3
15
1
4
5
2
11
10
4
3
2
44
2
1
6
12
5
6
3
6
6
6
7