Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Transponieren ein OR zw. den Werten einfügen

Forumthread: Nach Transponieren ein OR zw. den Werten einfügen

Nach Transponieren ein OR zw. den Werten einfügen
Maris
Hallo liebe Community,
Ich habe eine Auswahltabelle mit sehr vielen Zeilen...
12345
23456
34567
45678
usw.
ich markiere diese Zellen und möchte Sie transponieren... nur soll das in einem anderen Tabellenblatt sein z.B. Tabelle2 und alles in Zelle A1 geschrieben werden und zusätzlich ein OR zwischen jede Nummer:
A1= 12345 OR 23456 OR 34567 OR 45678
Kann man das leicht per Makro umsetzen?
Vielen Dank für euere Hilfe
Gruß
Maris
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nach Transponieren ein OR zw. den Werten einfügen
22.09.2010 17:54:34
Hajo_Zi
Hallo Maris,
warum Makro?
Tabelle1
 A
112345
223456
334567
445678



Tabelle4
 ABCDEFG
112345or23456or34567or45678

verwendete Formeln
Zelle Formel Bereich
A1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 
B1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 
C1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 
D1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 
E1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 
F1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 
G1 =WENN(ISTGERADE(SPALTE());"or";INDIREKT(ADRESSE((ABRUNDEN(SPALTE()/2;0)+1);1;;;"Tabelle1"))) 

Tabellendarstellung in Foren Version 5.30



Anzeige
AW:frage @ Hajo
22.09.2010 18:32:32
hary
Hallo hajo
Ich glaube es soll so ausehen. Alles in eine Zelle
Tabellenblattname: Tabelle1
 

A

B

C

D

1

1

 

1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9 or

C1 soll Tabelle2 A1 sein

2

2

 

 

 

3

3

 

 

 

4

4

 

 

 

5

5

 

 

 

6

6

 

 

 

7

7

 

 

 

8

8

 

 

 

9

9

 

 

 

10

 

 

 

 


andeutungsweise hab ich es so gemacht. Natuerlich nicht ganz korrekt. 

Dim a As Long
Dim b As String
For a = 1 To 9
b = b & Cells(a, 1) & " or "
Next

Machbar glaube ich mit Array und Transpose. Nur happerts bei mir beim Array. Waere schoen wenn Du, auch mir, das mal aufzeigen koenntest(zum array lernen).
gruss hary
Anzeige
AW: so geloest
22.09.2010 18:47:43
hary
Hallo
habe es jetzt so geloest. Interesse mit Array besteht weiterhin.
Bereich markieren und Makro ausfuehren. 

Sub b()
Dim rng As Range
Dim Trennung
Dim a
Trennung = " or "
For Each rng In Selection 'Ausgewaehlter Bereich
If rng  "" Then
a = a & rng & Trennung
End If
Next
If Len(a) > 0 Then a = Left(a, Len(a) - Len(Trennung))
Sheets("Tabelle2").Cells(1, 1) = a
End Sub

gruss hary
Anzeige
;

Forumthreads zu verwandten Themen

Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Anzeige
Bei Checkbox - dann einfügen
Heinz

Hallo Excel Gemeinde
Ich hätte gerne wenn ich in einer UF bei einer Checkbox ein en Hacken setze, das mir dann im Sheets "Prüfungen" das Wort "Umbau" von B4:B13 Horizontal zentriert erscheint.
Könnte mir dazu bitte jemand helfen ?
Danke Heinz
18.06.2009 12:34:27
Thread-ID: 1082536
4 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
Tabelle als Bild einfügen
selli

guten morgen liebe leute,
ich habe schon einiges probiert, scheitere aber einmal mehr vermutlich an der falschen syntax.
folgendes möchte ich mit folgendem code erreichen:
es soll ein image eingefügt werden und anschliessend mit dem bereich einer tabellebefüllt werden.
ActiveShe...
24.06.2009 10:50:54
Thread-ID: 1084007
4 Beiträge
Text einfügen, wenn nicht vorhanden
Karsten

Hallo...
in C1 steht durch ein Makrobefehl ein Text. Mit folgendem Befehl wird überprüft, ob in den dahinterkommenden Zellen (D1, E1 usw.) auch dieser Text vorkommt.
Cells.find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDi...
24.06.2009 23:35:21
Thread-ID: 1084207
8 Beiträge
Inhalte einfügen
steffen

Hallo Leute,
ich möchte von einer Tabelle den gesamten Inhalt einer Spalte in eine andere Tabelle kopieren, wobei jedoch die Zeile 1 lee bleiben soll.
Worksheets("Tabelle1").Range("B:B").Copy Destination:=Worksheets("Tabelle2").Range("A2")
bei dem Code bekomme ich einen Fehler. Wenn...
29.06.2009 08:12:59
Thread-ID: 1084991
4 Beiträge
Anzeige
Null einfügen
Ralf

Hallo Excel - Experten,
ich habe in Spalte A fünfstellige "Zahlen" wie z.B.: '12345 '23456 '34567
Es sind manchmal 70 manchmal 135 Zahlen die so, untereinander stehen.
Nun möchte ich gerne diese z.B. 135 Zahlen markieren und dann, .... ja dann kommt
mein Problem :-), dann...
29.06.2009 12:17:52
Thread-ID: 1085089
6 Beiträge
Einfügen von bestimmten Blätternnamen in Liste
bestimmten

Hallo zusammen,
hab schon mein nächstes Problem.
Ich habe eine Excel Arbeitsmappe von der aus über eine Vorlage durch Kopieren immer neue Tabellenblätter erstellt werden - für jedes Projekt ein neues Arbeitsblatt (die blätter heißen so wie das jeweilige projekt sprich eine ziffernfolge)...
29.06.2009 14:01:18
Thread-ID: 1085138
18 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Tabellenblatt einfügen verhindern
Josef_T

Guten Morgen,
kann mir bitte jemand sagen, ob es mit Excel Bordmittel möglich ist, zu verhindern das jemand ein neues
Tabellenblatt einfügen kann?
Wenn ja, wie denn bitte?
Gruß Josef
03.07.2009 08:33:46
Thread-ID: 1086122
3 Beiträge
Formel per Makro einfügen und mit R1C1 fixieren
Christoph

Hallo und entschuldigt bitte das etwas kryptische Thema.
Ich füge eine Formel per VBA in eine Tabelle ein. Das Skript habe ich per Makro Recorder aufgenommen. Dabei muss ein Bereich immer einen festen Ausgangswert haben. In der Formel wird mir aber für die Fettgedruckte Stelle immer ein Feh...
03.07.2009 15:32:34
Thread-ID: 1086254
3 Beiträge
ComboBox auf sheet mit vbCode einfügen
ray

Hallo,
ich möchte auf dem sheet 'start' in Zeile 1 Spalte 10 via code eine combobox einfügen.
Diese soll mit "Kasse", "Bank" und "Bar" ausgefüllt sein.
Irgendwie bekomme ich das nicht hingefummelt...
Hab auch shcon mit aufzeichenne probiert, geht gar nicht...
Kann mir jeman...
07.07.2009 10:36:15
Thread-ID: 1086890
7 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