Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1504to1508
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
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige