Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

... in einen Code übersetzen

... in einen Code übersetzen
13.10.2006 13:58:19
karl.h
Hi,
ich weiß nicht wie ich am besten das folgende in einen Formelübersetzen kann:
"Wenn in A1 "Tasse" steht, dann nimm die Apalte B1 bis B5 und kopier (nicht verschieben) sie nach Z1 bis Z5. Wenn nicht Tasse in A1 steht dann nimm C1-C5 und verschieb sie nach Z1 bis Z5."
Kann mir das jemand in eine formel übersetzen...

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

Betreff
Datum
Anwender
Anzeige
AW: ... in einen Code übersetzen
13.10.2006 14:32:11
Harald
Hallo Karl,
Code oder Formel ?
Formel in Z1 und runterziehen
=wenn($A$1="Tasse";B1;C1)
oder

Sub test()
If Range("a1").Value = "Tasse" Then
Range("B1:B5").Copy
ElseIf Range("a1") <> "" Then
Range("c1:c5").Copy
Else
Exit Sub
End If
Range("z1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Gruss Harald
AW: ... in einen Code übersetzen
13.10.2006 14:32:21
IngGi
Hallo Karl,
 
 ABCD
1Tasse11 
2 22 
3 33 
4 44 
5 55 
Formeln der Tabelle
C1 : =WENN($A$1="Tasse";B1;"")
D1 : =WENN($A$1="Tasse";"";B1)
C2 : =WENN($A$1="Tasse";B2;"")
D2 : =WENN($A$1="Tasse";"";B2)
C3 : =WENN($A$1="Tasse";B3;"")
D3 : =WENN($A$1="Tasse";"";B3)
C4 : =WENN($A$1="Tasse";B4;"")
D4 : =WENN($A$1="Tasse";"";B4)
C5 : =WENN($A$1="Tasse";B5;"")
D5 : =WENN($A$1="Tasse";"";B5)
 

Spalte D musst du natürlich nach Spalte Z verschieben.
Gruß Ingolf
Anzeige
AW: ... in einen Code übersetzen
13.10.2006 15:10:10
karl
Vielen Dank @ all

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige