Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA beschwindeln?

VBA beschwindeln?
07.12.2016 11:28:31
Lorenz
Hallo,
Ist es möglich wenn z.B. im Tabellenblatt a1:g1 markiert ist, der Code aber arbeiten soll als wenn a1 + c1 + e1 + g1 (also jede zweite Zelle) markiert wären?
Wenn ja, wie?
Gruß
Lorenz

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA beschwindeln?
07.12.2016 11:40:12
Michael
Hi,
eine ganze Reihe von Befehlen (wie zum Beispiel kopieren/einfügen) geht nur mit zusammenhängenden Zellen; wenn Du nur jede zweite haben willst, bietet es sich an, den Bereich mit einer Schleife durchzugehen und nur jede gerade/ungerade Zeile zu verwenden.
Dazu sieh Dir mal die Hilfe von Mod an und probiere mit if (zeile mod 2) = 0 bzw. =1 herum.
Näheres, wenn Du ins Detail gehst bzw. einen Codeschnipsel postest.
Gruß,
Michael
AW: VBA beschwindeln?
07.12.2016 11:56:47
Lorenz
Hallo Michael
mit "Mode" , bzw. "for 1 to xx Step 2" leider erfolglos herumprobiert!!!!!
Hier gesamter Code (in UF verwendet)
Private Sub cmdPF_Click()
Dim Bereich As String, arrBereich As String, i As Integer
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Next i
arrBereich = Left$(Bereich, Len(Bereich) - 2)
With Range(arrBereich)
For i = 1 To 3
If Cells(i, ActiveCell.Column) = 1 Then Exit Sub
Next
.Value = "PF"  '
Grüße
Lorenz
Anzeige
AW: VBA beschwindeln?
07.12.2016 12:33:05
Michael
Hi,
jetzt bin ich etwas verwirrt: Du hattest eingangs geschrieben: A1-G1, während jetzt eine Mehrfachselektion vorliegt, von der ich nicht weiß, wie die aussieht.
Am besten lädst Du eine Beispieldatei hoch und markierst mal händisch, worum es geht.
Schöne Grüße,
Michael
Aha
07.12.2016 13:41:37
Michael
Hi,
dann versuch mal das: 
Private Sub cmdWiPF_Click()
Dim Bereich As String, arrBereich As String, i As Long
Dim PFs$(0, 1 To 50)
For i = 1 To 50
If (i And 1) = 1 Then PFs(0, i) = "PF"
Next
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Selection.Areas(i) = PFs
Next i
arrBereich = Left$(Bereich, Len(Bereich) - 2)
With Range(arrBereich)
For i = 1 To 3
If Cells(i, ActiveCell.Column) = 1 Then Exit Sub
Next
'.Value = "PF"  '
Schöne Grüße,
Michael
Anzeige
AW: Aha
07.12.2016 14:06:21
Lorenz
Hallo Michael
JAAAA, du hast den Nagel auf den Kopf getroffen.
Funktioniert SUPER, einwandfrei!
vielen, vielen Dank
& Grüße
Lorenz
AW: Aha
07.12.2016 16:29:47
Lorenz
Hallo Michael
Ist es unverschämt von mir, eine Erweiterung zu erbitten?
Wie, bzw wo muß der Code hinein, um die "PF" in einer weiteren Tabelle eingetragen werden soll. Also so wie in deinem Code. Nur zusätzlich im Tabelle "Wert" eintragen.
Danke im Voraus.
Grüsse
Lorenz
AW: Aha
07.12.2016 18:47:02
Michael
Hi,
jetzt mal ungetestet: 
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Selection.Areas(i) = PFs
Sheets("Wert").Range(Selection.Areas(i).Address)=PFs
Next i
Gruß,
M.
Anzeige
AW: Aha
07.12.2016 19:23:02
Lorenz
Hallo Michael
Ein weiteres mal: Tausend Dank!!
Auch wenn ungetestet, funktioniert genau nach Wunsch!!
vielen Dank & Grüsse
Lorenz
gern geschehen,
07.12.2016 19:54:23
Michael
Lorenz,
viele Grüße zurück,
Michael

299 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 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
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17