Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintrag in Zellen vor einem ausgewählten Bereich

Forumthread: Eintrag in Zellen vor einem ausgewählten Bereich

Eintrag in Zellen vor einem ausgewählten Bereich
29.04.2017 13:45:44
Niko
Hallo zusammen,
mit nachfolgenden Codezeilen wird nach Anklicken eines Buttons der Zellenhintergrund in dem ausgewählten Bereich andersfarbig dargestellt.
With Selection.Interior.Gradient.ColorStops.Add(0)
.Color = RGB(255, 206, 205)
.TintAndShade = 0
End With
Wie muss ich das Makro ergänzen, damit zusätzlich in den Zellen vor dem jeweils markierten Bereich auch der Eintrag 'ok' angezeigt wird?
Danke für eure Mühe
Gruß
Niko
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Selection.Offset(, -1) = "ok" ... owT
29.04.2017 13:54:12
Matthias
Vielen Dank für den Tipp (oT)
29.04.2017 14:23:10
Niko
Hi
AW: Selection.Offset(, -1) = "ok" ... owT
29.04.2017 15:26:32
Niko
Hallo Matthias,
nochmals danke für deinen Tipp.
Die Selection umfasst Zellen in 5 Spalten. Mit deiner Syntax wird dieser Bereich um 1 Spalte nach links verschoben und 'ok' eingefügt.
Ich möchte allerdings erreichen, dass nur in 1 Spalte - links vor dem ausgewählten Bereich - 'ok' eingefügt wird.
Hast du dazu noch einen Tipp.
Danke schon mal.
Gruß
Niko
Anzeige
Ja das geht auch ...
29.04.2017 15:50:17
Matthias
Hallo
Dim RnG As Range Application.ScreenUpdating = False With Selection .Interior.Color = vbCyan For Each RnG In .Columns(1).Cells RnG.Offset(, -1).Value = "ok" Next End With End Sub Dazu mußt Du noch prüfen ob die erste markierte Spalte mind. die Spalte 2 ist.
Nach diesem Prinzip:
Dim RnG As Range
Application.ScreenUpdating = False
With Selection
.Interior.Color = vbCyan
If .Columns(1).Column > 1 Then
For Each RnG In .Columns(1).Cells
RnG.Offset(, -1).Value = "ok"
Next
Else
MsgBox "Eintrag von ""ok"" nicht möglich da Spalte(1) mit markiert ist", vbInformation
End If
End With
Gruß Matthias
Anzeige
einfacher ohne Schleife ...
29.04.2017 16:02:19
Matthias
Hallo
Ich hab noch XL2007, deshalb sieht meine Farbzuweisung etwas anders aus!
Also deshalb nicht wundern.
Dim RnG As Range
Application.ScreenUpdating = False
With Selection
.Interior.Color = vbCyan
If .Columns(1).Column > 1 Then
.Columns(1).Cells.Offset(, -1) = "ok"
Else
MsgBox "Eintrag von ""ok"" nicht möglich da Spalte(1) mit markiert ist", vbInformation
End If
End With
Gruß Matthias
Anzeige
AW: Zelle links von ..
29.04.2017 16:41:14
..
Hallo Nico, ggf. suchst du nur dies. 
Selection.Cells(1, 0) = "OK"

Danke dir für deine Hilfe - es funktioniert (oT)
29.04.2017 20:54:27
Niko
Hi
versteh ich nicht ...
29.04.2017 21:57:53
Matthias
Hallo
Wenn Gerds Vorschlag funktioniert, (hab ja nichts dagegen!)
dann hast Du es aber falsch beschrieben!
Zitat
Wie muss ich das Makro ergänzen, damit zusätzlich in den Zellen vor dem jeweils markierten Bereich auch der Eintrag 'ok' angezeigt wird?
Also hab ich das so verstanden:
Tabelle1

 DEFGH
7ok    
8ok    
9ok    
10ok    
11ok    


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: versteh ich nicht ...
30.04.2017 13:35:50
Niko
Hallo Matthias,
danke für deine Rückmeldung.
Du hast meine Frage richtig verstanden und deine Lösungen funktionieren ebenfalls einwandfrei.
Danke für deine Hilfe und schönes Wochenende.
Gruß
Niko

Forumthreads zu verwandten Themen

Teile von Zahlen auslesen und einfügen
Zahlen

Hallo Leute,
ich habe ein Problem mit Zahlenformaten.
In meiner Tabelle steht der Text '4917234598' (natürlich viele solcher Zahlen untereinander.
Jetzt möchte ich, daß diese Zahl (später eine ganze Spalte) über Makro so aufbereitet wird, daß aus '4917234598' 017234598 wird.
08.08.2008 22:57:00
Thread-ID: 1000426
21 Beiträge
Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
teilen von zellen
zellen

Die Datei https://www.herber.de/bbs/user/58432.xls wurde aus Datenschutzgründen gelöscht
hallo leute
da ich dieses jahr zum erstmal hier bin, nochmal alles gute für 2009.
ich habe da mal wieder ein problem, kann mir da jemand helfen?
;-))
beispiel anbei.
leider keine v...
15.01.2009 15:47:00
Thread-ID: 1040185
4 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Anzeige
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Anzeige
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Linke Zelle aus Bereich ermitteln
Peter

Guten Abend
"BenannterBereich" bezieht sich auf Tabelle1!A1:E1 (es handelt sich um verbundene Zellen)
Nun möchte ich RG nur die Zelle A1 zuweisen. Wie muss ich untenstehnder Code dazu erweitern?
Danke für eine Antwort.
Gruss, Peter
Set RG = ThisWorkbook.Names("BenannterBerei...
14.03.2009 23:59:34
Thread-ID: 1060317
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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