Excel "wort" in versch. Zellen durch Inhalt aus A1 autom. ersetzen?

Hallo zusammen

ich benötige Hilfe und zwar habe ich in verschiedenen Zeilen z.B .... [Kundenname] [Datum] stehen und würde jetzt gerne diese automatisch mit Inhalten einer bestimmten Zelle austauschen sobald man dort etwas einfügt. z.B Vertrag [Kundenname] (Zelle G3) wird zu Vertrag Gutefrage (da aus A1 "Gutefrage")

ist das verständlich? ich habe leider so gar keine Ahnung was Visual Basic angeht

Danke euch!

1 Antwort

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

29.11.2021, 08:53

z.B Vertrag [Kundenname] (Zelle G3) wird zu Vertrag Gutefrage (da aus A1 "Gutefrage")

Das ist nicht verständlich, aber ich kann erahnen, was du meinst:

=WECHSELN(G3;"[Kundenname]";A1)

SebaBal

Beitragsersteller

29.11.2021, 09:07

Ich versuche es nochmal,

A1: Gutefrage (Kunde)

A2: Datum (heutiges)

B10: Vertragspartner [Kundenname] [Datum] wird überprüft.
ich hätte jetzt gerne das in dem Satz aus B10, [Kundenname] mit A1 erstzt und [Datum] mit A2 ersetzt wird.

Danke für die Mühe!

Ähnliche Beiträge

In Excel mit Visual Basic Zellen leeren

Hallo zusammen,

ich würde gerne über Visual Basic, wenn eine bestimmte if Bedingung erfüllt ist (bekomme ich hin), einen Zellbereich leeren (Formatirung soll erhalten bleiben, also nur Hintergrundfarbe und Inhalt löschen), z.B. 2B bis 6E. Kann mir jemand hierbei helfen? Ich weiß leider weder wie ich eine Aktion für einen Zellbereich ausführe (es werden mehrere Zellbereiche werden) noch weiß ich, wie ich über Visual Basic Zellen leeren kann.

Gruß

...zum Beitrag

Visual Basic: Bereich von Zellen prüfen mit Ausgabe?

Hallo liebe Community,

Ich will mit VBA EInen bereich von Zellen prüfen, ob daten enthalten sind. Dann soll, wenn eine Zelle gefunden wurde, rechts daneben einen wert ausgeben und 3 andere zellen löschen zb:

a1-a20 prüfen. in a5 ist gefüllt, in b5 soll "Erledigt" stehen, und c5, e5 und h5 soll gelöscht werden.

Kann mir da jemand helfen?

...zum Beitrag

Excel/VBA (Visual Basic): Prüfen ob Zelle leer ist?

Hi,

Ich möchte prüfen ob beispielsweise "Cell(x,y)" leer ist. Strings die nur aus Leerzeichen sollen auch als leer gelten. Wie mache ich sowas?

lg HiFriend :)

...zum Beitrag

Visual Basic Makro auf weitere Zeilen anwenden?

An alle Visual Basic Experten :P

Habe in Excel ein Makro geschrieben, das mir in verschiedenen Spalten Inch in mm umrechnet und die nicht gewünschte Einheit ausblendet.

Nun habe ich die Funktion aber nur für die Zeile A... :( Kann mir jemand sagen wie ich sich die Funktion nun auf die anderen Zeilen übertragen lässt ?

Mein Makro sieht wie folgt aus:

Sub Schaltfläche1_KlickenSieAuf()

Range("T3") = (Range("S3").Value * (254 / 10))

Range("V3") = (Range("U3").Value * (254 / 10))

Range("R3") = (Range("Q3").Value * (254 / 10))

Range("O3") = (Range("N3").Value * (254 / 10))

Range("J3") = (Range("I3").Value * (254 / 10))

Range("H3") = (Range("G3").Value * (254 / 10))

Range("F3") = (Range("E3").Value * (254 / 10))

Columns("U").Hidden = True

Columns("S").Hidden = True

Columns("Q").Hidden = True

Columns("N").Hidden = True

Columns("I").Hidden = True

Columns("G").Hidden = True

Columns("E").Hidden = True

Columns("F").Hidden = False

Columns("H").Hidden = False

Columns("J").Hidden = False

Columns("O").Hidden = False

Columns("R").Hidden = False

Columns("T").Hidden = False

Columns("V").Hidden = False

End Sub

Bin für jede Antwort dankbar. PS: ist mein erstes Makro :) wäre also nett , wenn die Lösung verständlich wäre :D

...zum Beitrag

Excel button mit makro erst ausführen wenn Zellen x1 y1 z1 ausgefüllt sind. teilweise >0 teilweise text. Ich bekomme es einfach nicht hin. bräuchte euere Hilfe?

Excel button mit makro erst ausführen wenn Zellen x1 y1 z1 ausgefüllt sind. teilweise >0 teilweise mit text. Ich bekomme es einfach nicht hin. ich kenne mich wenig mit visual basic aus und daher habe ich schwierigkeiten. freue mich über jeden Vorschlag!

...zum Beitrag

VBA zeilen kopieren mit relativem Zellbezug

Hallo, ich habe in mein Excel Dokument einen Button eingebaut, den ich mit einem Makro verbinden möchte, der eine neue Zeile einfügt und eine darüberliegende vorhandene Zeile Kopiert bzw. nach unten zieht, um in dieser neue Werte eintragen zu können. Funktioniert soweit auch ....

ABER natürlich verschieben sich die Bezüge durch das einfügen neuer Zeilen und die Makros, welche sich auf Zeilen unter dem ersten Makro beziehen, funktionieren nicht mehr an gewünschter Stelle...

In Visual Basic habe ich versucht die "Range" Bezüge zu ändern, habe aber nur den ansatz für einzelne zellen gefunden z.b. "ActiveCell.Offset(1,0).Range("A1").Select"

Auf dem Bild soll jeweils das blaue kreuzchen eine neue Zeile einfügen, siehe Zeile Opex. Folgendes ist mein VB Quelltext bei dem sich immer alles verschiebt: Sub add_cost_netrent() ' ' dada Makro '

' Rows("9:9").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("D8:H8").Select Selection.Copy Range("D9").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 Range("U8:Y8").Select Application.CutCopyMode = False Selection.Copy Range("U9").Select ActiveSheet.Paste End Sub

...zum Beitrag

VBA Makro gesucht: Inhalt von Zellen löschen wenn eine andere Zelle bestimmten "TEXT" beinhalted?

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden
Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden
Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.
Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

...zum Beitrag

Autohotkey Excel Zelle kopieren und wieder einfügen?

Hallo,

ich möchte bei einer bestehende Excel liste die Zellen immer nacheinander auslesen (z.B A1 bis A50) der Inhalt soll kopiert werden und dann z.B in eine Word Datei eingefügt werden.

kenne mich leider fast gar nicht mit Autohotkey aus

bitte daher um Lösungsvorschläge und oder schon geschriebene Codes

Danke im voraus

...zum Beitrag

Wie kann man eine WENN-Funktion mit „ISTLEER“ und „ODER“ verschachteln?

Liebe Forumsmitglieder, bei folgender Aufgabenstellung komme ich leider nicht weiter:

=WENN(SUMME(A1:C1)=3;"X";"Y");WENN(ISTLEER(A1);"Z";WENN(ISTLEER(B1);"Z";WENN(ISTLEER(C1);"Z";"")))

Die Inhalte der drei Zellen (A1-C1) sollen miteinander verglichen und berechnet werden. In D1 soll je nach Inhalte der drei Zellen (A1-C1) Ergebnisse ausgewiesen werden für: Wenn eine der drei Zellen (A1-C1) oder mehrere leer ist: X Wenn die Summe der drei Zellen (A1-C1)=3: Y Wenn die Summe der drei Zellen (A1-C1)<3: Z

Kann mir jemand hierbei eine Hilfestellung geben?

...zum Beitrag

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zum Beitrag

Zeiterfassung in Excel...?

Ist es möglich, dass ich in Excel z.B. in Zelle A1 eine Zahl eingebe, dann in Zelle B1 die aktuelle Uhrzeit erscheint und beim zweiten eingeben der selben Zahl in einer ganz anderen Zelle (z.B. A38), dies automatisch erkannt wird und in C1 wieder die aktuelle Uhrzeit erscheint. Es geht um Einfahrt- und Ausfahrtszeiten... Erst wenn beim dritten Mal die selbe Zahl eingegeben wird, soll in einer neuen Zeile, das wieder mit der Einfahrtzeit begonnen werden.

...zum Beitrag

Excel Zelle mit Inhalt anklicken und in anderer Zelle Anzeigen?

Ich möchte das meine Kunden in einer Tabelle verschiedene Zellen mit Inhalt ( z.B. Preis) anklicken und dieser Inhalt ( Preis ) in einer anderen Zelle auf einem anderen Blatt angezeigt wird.

Danke vorab

...zum Beitrag

Excel: Inhalt einer Zelle übertragen

Wie kann ich den Inhalt einer Zelle an eine andere Zelle Übertragen?

Beispiel: A1= 5 ; B1 enthält eine Formel ; C1 soll den Wert von A1 übernehmen.

Allerdings darf C1 keine Formel, sondern nur den Wert "5" enthalten.

Kann ich eine Formel in der Zelle B1 erzeugen, in der der Inhalt von A1 in C1 kopiert wird? Wie müsste so eine Formel aussehen? (VBA/Makro möchte ich nicht verwenden)

...zum Beitrag

VBA Zellen verbinden mit schleife?

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen