Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B

W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 05:58:58
Josef
Guten Morgen!
Ich habe in einem Tabellenblatt ca. 8000 Datensätze. Wenn z.B. in der Spalte D der Wert "MusterA" steht, dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden. wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 07:29:23
Hajo_Zi
Hallo Josef,
man muss nicht alles mit VBA lösen, da reicht auch eine Formel.
=Wenn(D1="MusterA";"c";"") und fomel auf die gesamte Splate übertragen.

AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 07:30:00
Tino
Hallo,
so müsste es auf dem aktiven Tabellenblatt funktionieren
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim Bereich As Range 
Application.ScreenUpdating = False 
    Set Bereich = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2) 
    Bereich.FormulaR1C1 = "=IF(RC4=""MusterA"",""c"","""")" 
    Bereich.Value = Bereich.Value 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 07:52:07
Josef
Hallo Tino!
Danke für Deine Antwort. Klappt bereits super.
Eine Frage hätte ich bitte dazu noch.
Ginge dies auch mit der Suche nach 2 Kriterien?
Wenn z.B. in der Spalte D der Wert "MusterA" steht und in der Spalte C "MusterB" dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden.
auf jeden Fall mal ein großes Danke für Deine Lösung.
Josef
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 08:01:00
Tino
Hallo,
es ist vieles mach bar.
Modul Modul1 
Option Explicit 
 
 
  
Sub Test() 
Dim Bereich As Range 
Application.ScreenUpdating = False 
    Set Bereich = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2) 
     
    Bereich.FormulaR1C1 = _
            "=IF(AND(RC4=""MusterA"",RC3=""MusterB""),""c"","""")" 
     
    Bereich.Value = Bereich.Value 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 08:41:00
Josef
Hallo Tino!
Danke herzlichst das war die Lösung. Schönen Tag noch.
Josef
An Tino!
07.10.2008 09:48:59
Josef
Hallo Tino!
Ich hätte bitte noch eine Frage:
Kann man statt MusterA und MusterB den jeweiligen Wert über eine Variable reinholen. (InputBox?)
Funktionieren würde der Code ja bestens.
MusterA könnte z.B. auch MusterD oder E oder F sein.
Danke
Josef
AW: An Tino!
07.10.2008 10:10:00
Tino
Hallo,
so gehts
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim Bereich As Range 
Dim Wert(1) As String, strFormel As String 
 
Wert(0) = InputBox("Suchwert1", "Eingabe für Spalte C") 
Wert(1) = InputBox("Suchwert2", "Eingabe für Spalte D") 
strFormel = "=IF(AND(RC4=""" & Wert(1) & """,RC3=""" & Wert(0) & """),""c"","""")" 
 
Application.ScreenUpdating = False 
    Set Bereich = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2) 
      
    Bereich.FormulaR1C1 = _
            strFormel 
      
    Bereich.Value = Bereich.Value 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

Anzeige
AW: An Tino!
07.10.2008 10:47:00
Josef
Hallo Tino!
Funktioniert jetzt super. Habe das Ganze in eine Userform gepackt.
Ein kleines Problem hätte ich noch. In der Spalte B ist in der Zelle B1 bereits ein "c" vorhanden. Dieses sollte nicht gelöscht werden. Wenn der Buchstabe c richtig eingetragen wird, dann wird das c in B1 auch gelöscht. nur dieses c wäre wichtig wenn es drinnen bleibt.
Danke
Josef
AW: An Tino!
07.10.2008 11:07:48
Tino
Hallo,
kein Problem, lassen wir dass Makro erst ab Zeile 2 eintragen.
Habe noch eine Sicherheit eingebaut, damit die Zelle B1 nicht überschrieben werden kann,
sollte in Spalte D keine Daten sein.
Option Explicit

Sub Test()
Dim Bereich As Range
Dim Wert(1) As String, strFormel As String

Set Bereich = Range("D2", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2)
If Bereich(1).Address = Range("B1").Address Then
 MsgBox "In Spalte D sind keine Daten!", vbCritical, "Abbruch"
 Exit Sub
End If

Wert(0) = InputBox("Suchwert1", "Eingabe für Spalte C")
Wert(1) = InputBox("Suchwert2", "Eingabe für Spalte D")
strFormel = "=IF(AND(RC4=""" & Wert(1) & """,RC3=""" & Wert(0) & """),""c"","""")"
 
Application.ScreenUpdating = False
    Bereich.FormulaR1C1 = _
            strFormel
    Bereich.Value = Bereich.Value
Application.ScreenUpdating = True
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: An Tino!
07.10.2008 11:19:00
Josef
Hallo Tino!
Danke für Deine Mühe und Deine Hilfe.
Josef

299 Forumthreads zu ähnlichen Themen

Diagramm/Bild in UF - 2003 ja - 2007 error ?
Jens

Moin allerseits
ich hab da ein Diagramm in einer Userform, bzw ein Bild eines Diagramms.
Das Diagramm hat 4 Datenpunkte.
Unter Excel 2000 läuft es gut - unter Excel 2007 gibt es den Fehler, dass 2D Diagramme nicht mehr als 32000 Datenpunkte enthalten dürfen...aber es sind nur 4 ! <...
08.08.2008 22:59:03
Thread-ID: 1000428
3 Beiträge
Anzeige
Drei Diagrammtypen in einem Diagramm
Jan

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...
22.08.2008 10:20:18
Thread-ID: 1003765
4 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Prüfe Tabelle für Tabelle nach bestimmten Inhalt
Tom

Hallo - schönen guten Morgen....
Ich habe in diesem Script einen Fehler, weis aber leider nicht wo. Eine Fehlermeldung als solches gibt es nicht aber das script macht halt nicht das was es soll.
Private Sub CommandButton5_Click() Dim lngZ As Long With Sheets("Mitarbeiterdaten") Workbo...
15.09.2008 11:08:52
Thread-ID: 1009714
6 Beiträge
Diagramm in Kommentar einbinden
Frank

Hallo!
Ich möchte gerne ein Diagramm in einen Kommentar einbinden.
Meine Frage ist nun geht das überhaupt und wenn ja wie?
Falls nicht, gibt es eine andere - vergleichbare Lösung?
Gruß Frank
17.09.2008 12:27:00
Thread-ID: 1010326
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Diagramme - XLUSRGAL.XLS übernehmen in EXCEL2007?
thema

Hallo liebe EXperts!
Können die in Diagrammvorlagen, die in EXCEL 2003 gespeichert sind (vgl. XLUSRGAL.XLS) schnell in EXCEL 2007 übernommen werden?
Oder muss man die Vorlagen neu erstellen?
Danke für eure Tipps.
Grus TheMa
17.10.2008 10:25:00
Thread-ID: 1017059
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

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