Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt kopieren

Forumthread: Inhalt kopieren

Inhalt kopieren
25.07.2016 08:55:22
Werner
Hallo Excel-Freunde
Möchte automatisch 2Zellen abgleiche.
Beispiel:
A17 ist leer, B17 steht 12
Jetzt soll in A17 der Wert aus B17 stehen.
Umgekehrt:
B17 ist leer in A17 steht 12
Jetzt soll in B17 der Wert aus A17 stehen.
Verschiedenes probiert, bekomme jedoch immer eine Zirkelbezugswarnung.
Danke
Werner
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt kopieren
25.07.2016 09:03:00
baschti007
Hallo Werner.
So könnte man das machen
Sub ddd()
If Range("A17").Value = "" Then Range("A17").Value = Range("B17").Value
If Range("B17").Value = "" Then Range("B17").Value = Range("A17").Value
End Sub

AW: Inhalt kopieren
25.07.2016 09:08:02
Werner
Danke für die Antwort
Da es sich um ein Makro handelt, müsste es noch bis zu Zeile 300 angepasst werden.
So dass ei bis Zeile 300 die Werte aus den Zellen a und B kopiert.
Gruß
Werner
Anzeige
AW: Inhalt kopieren
25.07.2016 09:15:29
baschti007
Dazu müsstest du schreiben ob es ab Zeile 1 beginnt oder erst ab 17 =D
Gruß Basti
AW: Inhalt kopieren
25.07.2016 09:18:04
Werner
Beginn ist ab Zeile 17
Danke
AW: Inhalt kopieren
25.07.2016 09:18:23
Werner
Beginn ist ab Zeile 17
Danke
Anzeige
AW: Inhalt kopieren
25.07.2016 09:20:18
baschti007 

Sub sdf()
Start = 1
ende = 300
For i = Start To ende
If Range("A" & i).Value = "" Then Range("A" & i).Value = Range("B" & i).Value
If Range("B" & i).Value = "" Then Range("B" & i).Value = Range("A" & i).Value
Next
End Sub

AW: Inhalt kopieren
25.07.2016 09:16:38
Werner
Hallo Namensvetter,
Sub ddd()
Dim i As Long
For i = 17 To 300
If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i, 2).Value
If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i, 1).Value
Next i
End Sub
Gruß Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige