Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In einem markierten Bereich i.e. Spalte Daten änd.

In einem markierten Bereich i.e. Spalte Daten änd.
16.04.2008 09:46:45
Josef
Hallo!
Ich habe z.B. einen markierten Bereich A17-I31 und möchte in diesem Bereich in der Spalte G den Eintrag S auf G mittels VBA ändern.
Wie würde hier bitte eine VBA Lösung aussehen?
Danke
Josef

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In einem markierten Bereich i.e. Spalte Daten
16.04.2008 10:01:00
Matthias
Hallo Josef
In einem markierten Bereich, naja ist gefährlich.
Ich würde schon den Bereich klar definieren:

Sub wandeln()
Dim c As Variant
For Each c In Range("A17:I37")
If c.Column = 7 And c.Value = "S" Then c.Value = "G"
Next
End Sub




ansonsten eben statt Range("A17:I37") -> Selection benutzen




Sub wandeln()
Dim c As Variant
For Each c In Selection
If c.Column = 7 And c.Value = "S" Then c.Value = "G"
Next
End Sub


Anzeige
AW: In einem markierten Bereich i.e. Spalte Daten
16.04.2008 10:28:32
Josef
Hallo Matthias!
Mein Makro sah so aus:

Sub Markieren_Kur()
On Error Resume Next
Dim bereich As Range
Dim wks As Worksheet
Set wks = Workbooks("Gesundheitswesen_Importe.xls").Worksheets("Korrekturen2")
Set bereich = wks.Range("A2:I" & wks.Range("A65536").End(xlUp).Row)
bereich.Copy
Set bereich = Nothing
Sheets("Korrekturen2").Cells(Rows.Count, 1).End(xlUp)(2, 1).Select
For Each bereich In Selection
If bereich.Column = 7 And bereich.Value = "S" Then bereich.Value = "G"
Next
End Sub


Ab For Each fügte ich Deine Lösung ein. Nur tut sich leider nichts. Was habe ich hier bitte falsch gemacht?
Danke
Josef

Anzeige
AW: In einem markierten Bereich i.e. Spalte Daten
16.04.2008 10:55:19
Josef
Hallo!
So funktioniert es jetzt:

Sub Markieren_Kur()
On Error Resume Next
Dim c As Variant
Dim bereich As Range
Dim wks As Worksheet
Set wks = Workbooks("Gesundheitswesen_Importe.xls").Worksheets("Korrekturen2")
Set bereich = wks.Range("A2:I" & wks.Range("A65536").End(xlUp).Row)
bereich.Copy
Set bereich = Nothing
Sheets("Korrekturen2").Cells(Rows.Count, 1).End(xlUp)(2, 1).Select
ActiveSheet.Paste
For Each c In Selection
If c.Column = 7 And c.Value = "S" Then c.Value = "G"
Next
End Sub


Danke für Deine Mühe und Deine Hilfe.
Josef

Anzeige
AW: In einem markierten Bereich i.e. Spalte Daten
16.04.2008 10:57:59
Matthias
Hi
Option Explicit

Sub Markieren_Kur()
Dim bereich As Range
Dim wks As Worksheet
Dim C As Variant
On Error Resume Next
Set wks = Workbooks("Gesundheitswesen_Importe.xls").Worksheets("Korrekturen2")
Set bereich = wks.Range("A2:I" & wks.Range("A65536").End(xlUp).Row)
bereich.Copy
Set bereich = Nothing
Sheets("Korrekturen2").Cells(Rows.Count, 1).End(xlUp)(2, 1).Select
For Each C In Selection
If C.Column = 7 And C.Value = "S" Then C.Value = "G"
Next
End Sub


Gruß matthias

hatte noch nicht aktualisiert oT
16.04.2008 11:05:00
Matthias

AW: In einem markierten Bereich i.e. Spalte Daten
16.04.2008 10:11:00
Renee
Hi Josef,
Ich verstehe nicht warum du den Bereich A...I selektieren willst, wenn du nur in der Spalte G was ersetzen willst. Ginge es so:

ActiveSheet.Range("G17:G31").Replace What:="S", Replacement:="G", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True


GreetZ Renée

Anzeige

300 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Anzeige

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
2
3
3
5
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5