PDA

Vollständige Version anzeigen : excel nächste beschriebene zelle finden und Kopieren


k-efes
07.07.2014, 13:58
Hallo,
ich such nun schon in allen Foren und brauche jetzt Hilfe da ich nicht mehr weiter komme!

Mein Problem besteht darin das ich in Zelle b3 Stehe und b3 ,c3,d3,e3 sind Leer ab f3 Steht wieder was, nun zu meiner Frage wie kann ich nun alle Zelle die ab f3 stehen nach b3 Kopieren?

Ich hoffe das mir jemand Helfen kann.
Schon mal vielen Dank im voraus.

Gruß
K-efes

Hajo_Zi
07.07.2014, 14:02
Du möchtest also alle Zellen von F3 bis XFD3 in eine Zelle kopiert haben?

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

k-efes
08.07.2014, 06:58
Guten Morgen Hajo,
nein nicht bis XFG3 es reicht bis BG3.
Also ich muss immer Zelleninhalte Löschen und dann eben die nachfolgenden Zellen an dieser stelle verschoben werden.
Außer wo "Vergeben" steht die muss stehen bleiben.
Gruß
K-Efes

Hajo_Zi
08.07.2014, 07:35
es sollen also ca. 60 Zellen in eine Zelle geschrieben werden. Ich hätte ja ein eindeutiges Trennzeichen benutzt, was habe ich davon wenn ich 250 Zeichen hintereinander sehe.
Dir ist schon bekannt das die Zelle eine max. Anzahl von Zeichen hat.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Mc Santa
08.07.2014, 07:39
Guten Morgen Hajo,
nein nicht bis XFG3 es reicht bis BG3.
Also ich muss immer Zelleninhalte Löschen und dann eben die nachfolgenden Zellen an dieser stelle verschoben werden.
Außer wo "Vergeben" steht die muss stehen bleiben. Gruß
K-Efes

Hallo,

Das markierte ist mir eim wenig unklar.

Meinst du es prinzipiell so: ?
<br/><b><em>VORHER</em></b><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "><colgroup><col style="font-weight:bold; width:40px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /></colgroup><tr style="background-color:#99CCFF; text-align:center; font-weight:bold; "><td>&nbsp;</td><td>B</td><td>C</td><td>D</td><td>E</td><td>F</td><td>G</td><td>H</td><td>I</td><td>J</td><td>K</td><td>L</td><td>M</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">2</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bbla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bbla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td></tr></table>
<br/><b><em>NACHHER</em></b><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "><colgroup><col style="font-weight:bold; width:40px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /><col style="width:39px;" /></colgroup><tr style="background-color:#99CCFF; text-align:center; font-weight:bold; "><td>&nbsp;</td><td>B</td><td>C</td><td>D</td><td>E</td><td>F</td><td>G</td><td>H</td><td>I</td><td>J</td><td>K</td><td>L</td><td>M</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">2</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bbla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bbla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">Bla</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td></tr></table><table cellspacing="0" cellpadding="0"><tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href="http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip" >Excel-Inn.de</a></td></tr> <tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href='http://Hajo-Excel.de/tools.htm' >Hajo-Excel.de</a></td></tr><tr style="text-align:left; font-weight:bold;" ><td style="text-align:left; font-size: xx-small" >XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007</td></tr><tr style="text-align:left; font-weight:bold; " ><td style="text-align:left; font-size: xx-small" > Add-In-Version 18.01 einschl. 64 Bit</td></tr></table><br/>

VG

k-efes
08.07.2014, 07:40
Hallo Hajo,
nein ich will nicht alle in einer Zelle schreiben sondern wieder jede für sich
so das die Entstandenen Leeren Zellen wieder Beschrieben sind.
Gruß
k-efes

k-efes
08.07.2014, 07:41
Guten Morgen Mc Santana,
ja genau so meine ich.

Mc Santa
08.07.2014, 07:48
Hallo,

ok, dann weiß ich trotzdem noch nicht, was es mit den "Vergeben"-Zellen aufsich hat..

VG

Mc Santa
08.07.2014, 07:55
Hallo,

probiere einmal, ob folgender Code das gewünschte macht:
Bitte kopiere diesen Code in die entsprechende Tabelle, er wirkt dann dort.
Sub su()
With Range("B3")
If .Value = "" Then
Range(.End(xlToRight), Cells(.Row, Columns.Count).End(xlToLeft)).Copy ber
End If
End With
End Sub

Hilft dir das weiter?
VG

k-efes
08.07.2014, 07:55
Hallo Mc Santana,
das sind Zellen die ich Verplant habe die nicht Verschoben werden dürfen!
Gruß
K-efes

k-efes
08.07.2014, 08:06
Nein geht leider nicht ( copy Methode kann nicht ausgeführt werden )
Gruß
K-Efes

Mc Santa
08.07.2014, 08:12
Nein geht leider nicht ( copy Methode kann nicht ausgeführt werden )
Gruß
K-Efes

Sorry kleiner Fehler:
Sub su()
With Range("B3")
If .Value = "" Then
Range(.End(xlToRight), Cells(.Row, Columns.Count).End(xlToLeft)).Cut .Cells(1, 1)
End If
End With
End Sub

Zu deinen Verplant-Zellen:
Dass die irgendwie extra behandelt werden müssen, war mir fast klar. Jedoch weiß ich nicht WO diese Zellen stehen. Bitte konstruiere ein Beispiel, an dem man sieht, wie mit diesen Zellen umgegangen werden muss und wo sie auftauchen können usw..

VG

k-efes
08.07.2014, 09:05
Hallo MC Santana,
ich habe deine Schematische anzeige mal in eine Datei gepackt!
Gruß
K-Efes

k-efes
17.07.2014, 10:47
Hallo MC Santana,
so nun die Richtige Datei.
Wenn ich auf Schicht klicke und dann Kalender kann ich die Schichten rechts eintragen entweder ab den Datum oder einfach ab 1 und dann werden sie hinten drangestellt.
Wenn ich sie Löschen möchte klicke ich auf Spalte b in das Blaue Feld dann werden alle Felder Rechts mit dem Gleichm Kommentar was im Blauen Feld ist gelöscht, und dann sollen alle Felder nach Links Rutschen außer da wo z.b. Reparatur Steht

das Gleiche soll passiere wenn ich Reparatur eingebe, dann soll alles eins weiter nach Rechts rutschen Außer wo eben etwas Steht was in dem Auswahlfeld ist.

Ich komme und komme nicht weiter!

vielleicht hast du ja eine Idee

Danke
K-Efes

k-efes
05.08.2014, 09:20
Hallo,
kann den mir wirklich keiner hier HELFEN?

Mc Santa
05.08.2014, 09:37
Hallo,

mir ist bei deiner Tabelle leider überhaupt nicht klar was du möchtest. Das Einpflegen des Codes in die Tabelle müsstest du übernehmen.

Für mein Beispiel aus #5 hast du in #12 einen funktionierenden Code. Was genau muss man jetzt noch für die vergebenen Zellen beachten? Ich bitte um ein einfaches, schematisches Beispiel.

VG

k-efes
05.08.2014, 11:13
Hallo Mc Santana,
die Vergebenden Zellen müssen an der stelle bleiben wo sie eingetragen sind!
Bei #14 habe ich die Datei Angehängt wo es soweit alles geht.
Ich Danke dir für deine Mühe
Gruß
K-Efes

Mc Santa
05.08.2014, 12:15
Hallo,

Woran erkenne ich denn vergebene Zellen?
Ich verstehe nicht, wo in deiner Tabelle was wohin verschoben werden soll, daher bitte ich um ein einfacheres Beispiel. Ein Beispiel ist keine allgemeine Beschreibung, was getan werden soll (so wie in #17), sondern eine konkrete Beschreibung. Das bedeutet eine Tabelle und sie beinhaltet einen Vorher und einen Nachher Zustand (jeweils ein eigenes Tabellenblatt). Dann erklärst du, warum das Ergebnis so aussieht, wie es aussieht.

Ich habe auch meinen Code in deiner Datei gesucht und nicht gefunden. Hast du versucht ihn zu implementieren?

Viele Grüße

k-efes
05.08.2014, 12:42
Hallo,
wenn du auf z.B. "V5" = kein Personal Klickst öffnet sich ein Dropdown Feld das ausgewählt werden kann was dann eben Stehen bleiben muss!


dein Code kopiert alle Felder von rechts mit eben kein Personal nach Links,

Mc Santa
05.08.2014, 13:03
Ich befürchte, dass ich dir nicht weiterhelfen kann. Sorry

k-efes
05.08.2014, 13:04
Ich danke dir Trotzdem dafür.